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ILLEGAL 

LLEGAL 
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TLL EGAL 
ILLEGAL 
ILLEGAL 
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OQ oe 
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0567 


0568 
Q568 


9569 
O570 | 


Ner4 
Lae i af 


=! 


2572 


O574 — 


OS 75 
0576 
O577 


O578 


0579 


0589 
0581 


0582 


0583 
0584 
0585 
0586 
0587 
0588 
0589 
0599 
O59} 
0592 
G593 
Q594 
0595 


OR 96 © 


0597 


9398 


9599 
0600 
O60} 
9692 
0602 
060% 


9605 - 


0606 
0607 


— ORR 


Ufa9 
HU 
O6121 
0612 
3613 
O814 
0615 
S616 
0617 
0618 
S619 


VOCAB 


- CABVI | 


CADV2 
CABX1 


ranrd 
T x 


AST 


CADL1 C 
cSUVE- 
‘CSUV2 C 


£ui/ 7 
ADDY i 


ADDV 2 
ADDL 1 
FADV1 
FADV2 


SUBV1 
SUBV2 ¢! 


SUBX 1 
FSUV] 
ESUV2 
MULY 1 
MULYV 2 
PMUV 4 
FMUV 2 
DI¥VV 1 
DIVV2 
EDVV 1 


SHIFT | 


CFAV 1] 
CFAV? 
EXTV1 
EXTV2 
STAV] 


STAV2 C 


STAT} 
STAT2 
STAL? 
STAl 

STAAB 
BUNVI 
BUNY 2 
BUNV3 
BUN? 

BUNRZ 
RUNT 


— BUN3V 
RUNL2 C 


BSALN 
RSALP 
PZAL? 
BZAL3 
BZALG 
BNZAF 
NOPZ 

NOPV 1 


C8BES30eR9 


* 


00000103001 


00000100002 | 
90000100004 


aonog1acnas 


wt LF 8g 


6000010000] 


060001-19004— -. 


00000110003 


NOANANPtsoAah 
Woe bee LD 


00000120002 
60000120601 
30090220001 
00000220007 
90000130001 


60900130002 


00000130004 
90000230001 
00009230602 


00000140001 | 
00000140902 


80000240001 
60000240002 
OOgcO1sscoal 
000007150002 
0600025C0G1 


400000000006 


10000180001 
10000180902 
00000170001 
00000170002 
ococo4ceadl 
00009400002 
10000400001 
10000400002 
61110400062 
49410600000 
50000400000 
96000300001 
90000300002 
910000300003 
790003003500 
59000300000 
40000300009 
00000200003 
60000300002 
60001330003 
60000330003 
60000360002 
60000260003 
40000360004 
30101369999 
70000010900 
96660010001 


PP 


TABLE OF 220 OPERATIONS WE CAN DO 


WAT) 
ARRAY WE MUST AL 
SUBSCRIPT AND LOAD 8 — 


ADDRESS 1 IS TO SE REPLACED BY ~ 


t 
AND 


tts 


ris 


SO COMPUTE 


te Witt tS atv 
aft YS EF ih 


SIGN OF lee DONT RELEASE 


TEMPORARY STORAGE CELLe 


IF Viy) 


1S AN ARRAY DONT RELEASE 


THE INCREMENT WORD 


SIGN OF 3008 THIS 1S A PSEUDO“OPs 
WE GET READY TO CALCULATE VT} 
BUT DONT ACTUALLY FINISH: 


GN OF 


ae | 4ee 
STON OF 


rr) 


SIGN OF Gee 
TO LOCATION 


SIGN OF Te&s. 
BLANKED OUT 


ADDRESS: 13 


SIGN OF 
1S PUT 
SIGN OF See 


ADDRESS YS ARSOLUTE 
SAMEs 3=MODEFIED 


ADDRESS 15 RELATIVE 


OR Yes 


Bae FORWARD REFERENCE 
N STACK 


SAMEs INCREMENTED 


ANA AAD AHAGAHAAADAAAHHAHAAHAKHARAHAHA HHH HAHHHHROAGKHHR AOR 


Ooo: 


29O OVC CCOGCCOCOCoO Ge eon oooeoGaGeoCooe ngage ScoeCOoOo90 Coco 


cooca0fe 


NOPYV 2 
NOP AV 
SLTIO 
oie 
SLT39 
SRTLO 
SETZ 
SLAQ 


LD& I 


“LOBBLO 


LBCVi 
DLBV ? 
LSAQ 
LSA 
LSAQ 
STP2 
STPV 2 


 STPVA 


BCSL2 
CLA 
TBR] 
LDRV 1 


HLTZ 


CAAV] 
CSAV1 
NDAV 1 
NOXV 2 
RCHL2 
ACLL2 
MCUL 2 
ADOX1] 
CLLV? 
RZAFR 
RSAFN 
BSAFP 
BUNFR 
STPA 

BURA 

BFILR 
BUNEB 


STPER 


STAT3 
LDRV®? 
CSUV4 
CLRO 


BOF? 


GTABO 


CNST 
F424 
CNST 
CNST 
CNST: 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST. 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CONST 
CNST 
CNST 
CNST 
CNST 
CNST 
F424 
F4244 
CNST 
CNST 
CNST 
CNST 
CONST 
CNST 
CNST 
CNST 


LOCN 
CNST 
CAST 
CNST 
CNST 
CNST-. 
CNST 


GO0000 10002 
O09e01sTOP~V 


400014909019 


40007490000 
49061490030 
49001480010 
40001480000 
40000490009 


49000420009 


50000420000 ~ 


9060142000] 
044002789002 


40000430990 


49007420000 


40009430000 
70600440000 
00000440002 
00000440002 
60000380007 
400014500%? 
40002200090 
00000410901 
£019 7007316 
60001700003 
90001110001 
200C00000CiT 
Z0000000002 
60000340007 


60001340002 — 


60073950002 
00000120004 
90000440002 
®£0009369995 
50001339999 
60009339999 
20000209999 
Oe44eLON04K 

Os30sLOn0V 

60101360002 
90000309999 


80000449999 


10000400003 
90000420009 
90000110004 
49002450660 
61111310002 


* 

19900000000 
114000060000 
32409000000 
39900000006 
10800000005 
31300000000 


+t 


MACRO-OQPERATION TASLES 

Vi V2 RESULT 

& %V xX ADDV?2 MaFYTXED 

A V= X sURV? FZFLOATING 

Am~ Vo X= SUaVv? A=IN ACCUMULATOR 

Am V= X= ADDV? V=NOT IN ACCUMULATOR 
V A xX ADdDDVI “=NEGATED 

VooAm= X= SUBVI 


dD SP AD AE SAE EA A NE ENR OR MAASMAHHMADH HOH AAHHHARARAHAO 
; NE ND ind bd ed) ge ht he 1S @ 2. , | ) >» a2 e 
OCOOTSCNDSHODSOHHSOCDOSFOSCODODSFDOCOBOOOCOBGODDOODOODODOOOCADBOAGCe D000 


0672 CNST- 123090000000 4 V= aA X SURV; 
C673 CNST 30800000000 + V= a= X= ADDVI 
0674 CNST 102709000000 + V VX CARV1 ADDV? 
0675 CNST 10708000000 + Vo V= X CSUV2 ADDVi 
676 CNST 102773000000 + V= V XK cADV2 SUAV) 
0877. CONST 49722909000 +4 V= Ve X cSUV2 SURV? 
0678 CNST 22200000000 +A VF FADV2 
0479 CNST .217000000C0 + A V= F  FSUV? 
0689 CNST &17000000G0 -+ A~ Vo F= FSUV2 
0681 - CNST -44200000000 + As-V- F- FADV2 
068? CNST 21100000000 + V A F FADVI 
C§83 CNST 417600000000 4 Vo A= FH FSUV] 
0684 CNST 22600000006 + V= A F FSV? 
0685 CNST 42100C00000 + v= A= F- FADVI 
0686 CNST 20112000000 + V ¥ F CADVI FADV? 
0687 CNST 207110900000 + V V= F CSUV2 FADVI 
0688 CNST 20216000000 + Ve VF CADV2Z VSUV] 
0689: CNST 207160000GO + V= V= FO CSUV2 FSUV] 
0690 CNST. 13202589700 / A -V X SFATL CADV2 SRT1O DIVV] 
0691 CNST 13207582200 / A Ve A STAT] CSUV2 SRT1LO DIVV] 
0692 CNST 132076882200 / Am~ V X STATI CSUV2 5SRT1O0 DIVV1 
0693 ENST 13202582200 / Am V~ X STATI CANDV2 SRT1O DIVVI 
0694 CNST 15822000000 / V A xX SRTLO DIVV] 
0695 CNST 35822000006 / Vo a= X= SRT1G DIVVI 
0696 CNST 35822000000 / W- A X= SRTIO DIVV 
C697 CNST 158272000000 / V= A= X SRT1O DIVV1 
0696 CNST 10258220000 / V VW XK CADV2 SRT10 DIVVI 
0699 CNST .10758220000 / Vo Ve xX CSUV2 SRT1O DIVVI 
0700 CNST 0758220060 / V- VX CSUVZ SRTIO DIVVI 
070} CNST.. 1025822000C / V= V= X CADV2 SRT10 DIVVI 
0702 CNST 23202972400 / A V F STATI CADV2 CLR FDVVi 
0703 CNST 23207972400 / A V= F  STATI1.CSUV2 CLR FDVV1 
0706 CNST 23207972400 / A- V F SFAT1 CSUV2 CLR FOVV] 
0705 CNST 23202972460 / Am V= F STATI CADV2 CLR FDVVI 
0706 CNST 297249000000 /V A F- CLR FDOVVI 
0707 CNST 49724000000 / JV¥ Am F= CLR FOVV1 
0708 CNST 49724000000 /.V= A F CLR FOVV1 
0709 CNST 2977409000000 /Syv= a- F CLR FOVVI 
0710 CNST 20297240C00 / VW V FF CADV2 CLR FOVV1 
O711 CNST 20797240000 /.V V= F— CSUV2 CLR FDVV] 
O712 CNST 27079724000G / V= VF» CSUV2 CLR FOVV] 
“O713 CNST 20297240000 / V= V= F CADV2 CLR FOVVI 
O714 CNST 211958000000 4A V XX MULVe SLTLO 
O715 CNST 32955000000 ¢»¢ A V= X= MULV?2 SLTIO 
O7%6 CNST 31958000000 egAm Vo X-- MULV? SLTIO 
O717 CNST 11955000000 Y- V= X MULV2 SLT10 
O718 CNST 21855000000 ,4%V A XX MULVE SLTIO 
0719 CNST 31855000000 « Vo Am X= MULV1? SLTI1O0 
0720 CNST 31785500000G » V= A X= MULY]T SLTIO 
072] CNST 12855000000 .». V= Am X MULVL SLTIC 
0722 CNST 10218550000 » V V xX CADV2 MULVI SLT19 
S773 CNST 10738550000 6 V V= X CSUV2 MULV1 SLT19 
0724 CNST 10718559000 .« V= VX CSUV2 MULV1 SLT10 
0725 CNST 10718580000 » V~ V= X CADV2 MULV] SLT10 
0726 CNST 22100000000 2A V F MUV 2 
eo A Vu Fe FMUV2 


OT27 CNST 42190000000 
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QE@e@eo0or00000 - 
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oQoooaoaoaoocToqaocncos 


0728 
0729 
OF36 


_ OF731 


O732 


0733. 


C734 
O735 


OF36 


O7 48 


0739 


O740 


OT41 
O74? 


O7&S 
O 7 dats 
O745 
0746 
O747 
0748 
S749 
0750 
0751 
0762 
0753 
C754 
0755 


0756 | 


O757 
0758 


0759 . 


0760 
0761 


0762 
0763 
0764 
0765 
0766 
O787 
O76E 
O769 
0770 
0771 
O772 
0773 


O7 74 
O775 


0776 


O777 


GTAR2 


GTAB3 


427100000000 
22100000000 
22000000000 
rood OL OLOTO19151610,0; 
42?000G00G09 
22000000000 
20220060000 


a eae ew A 


20720000006 


20720060000 - 


527860260000 
534207268001 
53206278002 
62781020000 
57680010600 
5320726290} 
53306278002 
627681010000 
5012?7R800200 
50726800100 
50627800200 
60127800200 
527781020600 
532707268161 


53206278102 


62780020000 
52681010000 


53307268101 


53306278102 
62680010000 
50127810200 
50726810100 
50627810200 
60127810209 


12900000000 
12800000009 
10129000000 
17991020000 
178610190000 
10278910100 
10915650000 
10815659900 
10109156500 
12782030000 
17883910100 
10127820300 


14872440300 


14872440300 


14788000000 
14788090000 


eeeoee ve eee 


MAX 
MAX 


MAX 
MAX 


MAX 
MAX 
MAX 
MAX 


MAX. 


MAX 
MAX 
MAX 
MIN 
MIN 
MIN 
MIN 


RAT 
Mid 


MIN 


MIN 
MIN 
MIN 
MIN 
MIN 
MIN 


AND 
AND 
AND 
OR 

cR 

OR 

EQV 
EQV 
EQV 
IMP 
IMP 
IMP 


FQL 
EOL 
FOL 
EQL 


Vv 
A~ V- 
VoOA 
VooA@ 
Vr o£ 
V= An 
VOY 
V= Vv 
Ape Ye 
A V 
A V ae 
A= V 
An v= 
VeoA 
VA 
V—m A 
VV aon A -_ 
VOY 
Vo Ye 
Vee V 
Ve Vv~ 
A V 
A V~ 
Aw V 
A Po V yur 
VON 
Vo A@- 
va 
V= Am 
VY 
Vo Vm 
Vee VY 
Vea Ve 
A ¥ 
a! 
veo 
A Vv 
VA 
VV 
A Y 
V A 
¥ y 
A V 
V N 
VOY 
() 
= () 
IF 
- IF 


Fo FMUV 2 


F 
F 
F 


P= 


KOM MO MO Oe OK OK 


FMUV 2 
FMUV 1 
FMUV1 
FMUV I 


CFAY2 
STATI 
STATI 
CEAV2 
CFAYI 
STATA 
STAT2 
CFAVI 
CABVI 
CSUY? 
CSUV1 
CADV1 
CFAVZ 
STATT 
STATI 
CFAV2 
CFAVI 
STAT? 
STAT? 
CFAVI 
CABVI 
CSUV2 
CSUVI 
CADVI 


EXTV2 
EXTV] 
CADVI 
NOXV2 
NOXV1 
NOXVI 
ADDV2 
ADDV1 
CADV1 
CFAV2 
NDAV1 
CADV IL 


BZAL3 
RZAL3 
BLALZ 
BZAL2 


EMUV1 


> MU 7 
EMV 


BCHL 2 
CSUV?2 
CSUVI 
BELL 2 
BCHL 2 
CSUV?2 
cSUV] 
BACLL? 
CFAVY2 
CFAVI 
CFAV2 
CFAV2 
BCLLZ 
cSuY? 
CSUV) 
BCHL 2 
BCLiL2 
C5UV2 
CSUVI 
BCHL 2 
CFAV2 
CFAVI 
GFAV2 
CFAV2 


EXTV2 
BILAL? 
BIAL2 
B1AL2 
SUB8X1 
SUBX] 
ADDV2 
BCUL2 
ADDX1 
CEAV2 


CLA 
CLA 
BUNFR 
BUNFR 


CADVZ 
CFAV] 


CFAV2 


CADV2 


CADVI 
CFAVY 


CFAV?2 


CADYI | 


BCHL2 
BCHL2 
BCHL 2 
BCHEL 

CADV?2 
CFAVI 
CFAV2 
CADV 2 
CADVI 
CFAVI 
CFAV2 
CADV1I 


BCLL2 


BCLL2 
BCLL2 
BCLLi2 


CADV2 
CADVI 


CADVI 


LSAO 
LSAO 
SUBX IL 
CADK] 
BLAL2 
BCUL2 


BUNL 2 
RUNL2 


BCHL2 
BCHL2 


BCHL2 
BCHL2 


CADV2 
CADY1 
CADV2 
CADV2 


BCLL2 
BCLL? 


BCLL2 
BCLL2 


CADV2 
CADVI 
CADV2 
CADV2 


LSAO 


CADV 1 
CADX]1 


CADX1 
CADX] 


CADVI | 
CADV2 


CADV1 
CADV? 


CADV] 


CADV2 


CADV1 
CADV2 
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a°O 
ayes 


a Swed 


oocoqc coco O97 CoO ca cCdD GO oO cao a gn 


ColstioleloleokeRololeolon> hele Rolelel-EeLekoiaoloReleReleleteolol=— 


0778 


O779 * 


0780 


O78 1 | 
C782» 


0783 
O784 
O7385 
0786 


C787 


0788 
O789 


~O790 


O79) 
O792 
C793 
O794 
0795 
C796 
0797 
0798 
OT99 
0800 
0801 
0802 
0802 
0804 
0805 
0806 


O807- 


0808 
0809 


0810. 


0819 


0810. 


681i 
0812 
0813 


0814 


O8t5 
0816 
0817 


0818 . 


C819 
0820 
0821 


' 0822 


0823 
0824 
0825 
C826 
0827 
0828 
0829 
0830 


CNST 


CNST 
CNST 


 CNST 


CNST 
CNST 
CNST 
CNST 
CNST 


CNST 


CNST 


_ CNST 


COMP 


TEMP 2 


CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 


NST. 


CNST 


CNST 


CNST 
CNST 
CNST 
CNST 
CNST 


DEFN 
LOCH 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 
CNST 


J=3 VI IS IN AsFLOATING 


18600000000 FOL UN BZAFR 

18500000060 EQL = UN BZAFR - 

14703000000 NEG () RBZAL2 CADXI 

14703000000 NED = C) BZAL2 CADX1 

18690900000 NEO iF RBZAFR 

-785C0cG0000C NEQ = IF RZAFR 

14788009000 NEQ UN BZAL2 BUNFR 

1478B80COC0CO NEQ =< UN BZAL2 RUNFR , 
14945724403 LEO {} BZAL4 BMAL3 CLA RUNL2 CADX1 
14946724403 LEQ -=— ()-- -BZAL4- BPAL3. CLA SUNL2..CADXL 
14787000000 LEQ TF BZAL2 BPAFR 0 
14786000000 LEQ = IF  R¢ALZ AMAFR 

18586000000 LEQ UN BZAFR BMAFR 

18587000000 LEQ = UN BZAFR BPAFR ps 
14945034472 GTR’ {} BZAL4 BMAL3 CADX1 BUNL2 CLA 
14946034472 GTR + () BZAL4& BPAL3 CADX1 BUNL2 CLA 
18586000000 GTR IF QZAFR BMAFR | 
18587000000 GTR = JF RZAFR BPAFR 

14787000000 GTR UN 3ZAL2 BPAFR - 
14786000000 GTR = UN  BZAL2 BMAFR. 

14946724402 GEQ (} RZAL4 BPAL3 CLA BUNL2 CADX] 
149465724403 GEQ = () BZAL4& BMAL3 CLA BUNL2 CADX1 
14786000000 GFO IF BZ2ZAL2 RMAFR 

14787000000 GEG = IF BZAL2 SPAFR 

1858700000C GEQ iN BEAFR BRAFR 

18686000000 GEQ = UN BZAFR BMAFR 

14946034472 LSS i} BZAL4 3PAL3 CADX1 BUNL2 CLA 
14945034472 LSS = () B7ZAL& BMAL3 CADX1 BUNL? CLA 
18587006000 LSS IF BZAFR BPAFR 7 | | 
18586900000 LSS ~- IF PZAFR BMAFR 

14786000000 LSS UN RBZAL2 BMAFR 

14787000000 LSS = UN BZAL2 RPAER 

K-22 IJ-PAIRS FOR ARITH GENERATOR 

% VilooV2 X=FIX F=FLT ASACC V=OPRND C=CONST 
32000000060 “Xho XV | . 
1132600000 XA FV 

2630000000 XA XC 

1126330000 XA FC 

0000000000 (IMPOSSIBLE CASF) 

7284007200 {IMPOSSIBLE CASE} 

1224213400 FA XV 

3200000000 FA FV I=1 OR I=266 

2623230000 FA XC J2l FLOAT VOT) 

2633000000 FA FC J=?2 STORE Vt) IN TEMP 
3100000000 XV XA J=3 FLOAT CONSTANT V(T) 
2714113300 XV FA JSs4 BRING V(T)} INTO &A REGISTER 
3200000000 XV XV J25 CALC CONST OP CONSTS T2TYPEF 
1471330900 XV. FV Je6 CHECK IF V(1)=SPECTIAL CONST 
26329000000 XV xe 

1411263300 XV FC 

21340C00C0C0 FV XA T=3006 

3400000000 FV FA J=0 V1 IS IN As FIXED 
2421240000 FV XV J=L V2 IS IN As FIXED 
250C0NN0000 FY FV J=?2 NEITHER IN As FIXED 
2623350000 FV XC. 


oO) 
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oo : #5 
Oo : j : 
Dern Drom Pre OVDeTawmsewmaeDMnmnwremnDneODarroreeaannwrnnanrn a 


ODOM OD HDM DMM MO 


Q2200000000000 


PPPVTOOOVADEOCSOGCOOVSCHOCOOCTDOOD ODDO OOoS6O00 


SCAN 
SCN1O 
SCN5 


SCN1 


SCN? 
SCN3 


STFOL 


*D 


#R 


¥C 


BRB 
BFA 


STB 


2635000000 
1631000000 
1613340000 
1632000000 


~ 1613350000 
1532900000 


1325350000 


97IVIL A2LAAANN 
ALG De 


1634000000 


-2421163400 


1635900000 


— 2325350000 


2535000000 


XC XA 
XC FA 
XE XV 
XC FV 
XC. XC 
XC FC 
FO <A 
PC’. FA 
os ee | ae 
FC FV 
FO XC 
FCG. URE 


De 


N ASFLOATING 
1S IN As FLOATING 


SECTION Be THE SCANNER COROUTINES 


CHAR 
0389999 
C+99198 
FORTY s02 
D+ 
0069999 
C+e02 004 
0989999 
C+902924 
099999 
C4292 903 
Os9999 
C4#902913 
099999 
C+902 923 
099999 
C+902914 
099999 | 
C#902920 
B+902 934 
099998 
€+9024e00 
C+9] 
CHAR 362914 
K2 


EXIT=ENTRANCE LINE) 


GO TO EXECUTOR CO-ROUTINE» 


MOVE SCANNING WINDOWS TO RIGHT 
ACROSS SOURCE STRING . 


GET NEXT CHARACTER FROM CARD 


SET K2 TO THE CODE FOR THIS CHARACTER 


NUMBER 
ALPHA: 


) 


BLANK 
OTHER 


1 
0 
2 
3 
4 
5 
& 
rid 


8 
19 
a 


CHANGE CRAZY MINUS SIGN TO REGULAR ONE 


O 
Oo 


o 


! 


DADOGCIBODOD ODD ODDO DONDDIOVO DOOD DODUBOUD DH OM 


tO 


2) 
oovsg7vnowo7o@w.5owo 


8 Oo Oo 


FOVPODVOVOOGOOTCOTDOODVODDOIDTDOBDOOVUOCRCOSOC ONO 


om oOo > oOOoOOoO ao OD 


QO 2 


0880 
O88} 
9882 
0883 


OS 84 


088s 
0886 
0887 
888 


RRO 


0890 
OBS1 
OBS2 


0893. 
O84 


0895 
0896 
0897 
0898 


~e79 °° 


0906 
0901 
0902 
9903 
0904 
5905 
O¢605 
0906 
0907 
0908 
0909 
0910 


Hatt 
Sere a 


0977 
0913 


0914 — 


0915 
0946 


O917 
0918 
9919 
9920 
OG21 
0922 
0923 
O924 
C925 
0926 
0927 


928 
£929 
0930 


SCN4 


HA 


fh 


B+9O2910 


Kl 
i 
K2 


TEMP 
TABSC 


TARSC 945988 


K2 
K2900910 
WEMX 
WEMeSCNS 


201903059900 


K2 
R13 


R24902901 


SCNI 

K 

C+ 

R15 

% 

PASSX 
PASS 
FORTY sO2 
SCNA 
CLASX 
CLASS 

Ki 
K1s00010 
SCN3 


SW1962429 


K2 
SCN1 

K 

a 

3 
Ke9a00 
SYMeL 
K 902792 
S- 
SCN 


ALPLX 
ALPLYU 
PRCMD 964 


BRANCH IF EITHER 
SCANNED CHARACTER IS BLANK 


OTHERWISE INDEX INTO TABLE AND 


BRANCH TO PROPER R~ROUTINE 


IF THE PAIR ITS ILLEGAL» 
WRITE ERROR MESSAGE 
IMPROPER CHARACTER PAIR 


BLANK ALPHA eee TO R13 
BLANK NUMBER eee TO R24 
BLANK OTHER eee TO SCN] AGAIN 


IF RIGHT CHARACTER IS BLANKs 
GET THE 


THEN COMPLETE THE PROCESSING OF 
CASES § 


LEFTHAND SYMROL TN THE 
ALPHATALPHAs ALPHA-NUMBER 


RLANK OUT LEFTHAND SYMROL AND RECYCLE 


AA AN 


THIS CHARACTER IS PART OF 
AN IDENTEFIER 
STCGRE IT IN SYMBL AREA 


TF IMENTIFIER 1S MORE THAN 
IN LENGTH TRUNCATE I? TO 50 


Al 
WE HAVE MANY CASES TO FXAMINEs 
LOOKUP [DENTIFIE FIRST 


NEXT NONBLANK CHARACTER 


THE 


BLANK OUT BOTH SYMBOLS AND RECYCL 


> 


50 CHARACTERS 


© 
Ooo 
oO 3 


Oooo o 0 Oo OO 


0 0 Oo 


7” 
a 
™O 


210 
010 
en ke 


o1c. 


C10 


a 
i) Ls z 
pOoOUVOBOCBovvoKOVweOoOYWNO YOU WoO aw Do 


SEsVOOCCODG0O0G000 000 


o 


BOodD0onurD700090N 


Oooo vero o 9-0 920 CO Oo7 OO C0 Ee C0 °0n 


9931 - 


0932 
0933 
0934 
0935 
936 
0937 


mOaat 
ee 


0939 


094) 


O94? 


0943 — 


D944 


9945 


D946 


C947 


0948 
0949 
cosh 


Oo5. 


9952 
0953 
0954 


0955 


5956 
9957 
0958 
0959 
0960 
0961 
8962 
0963 
9964 
096% 


. 0966 ~ 


0967 


0968 


o969 


O970- 


C371 
C972 
9973 
0974 
0975 
0976 
OO77 
Qoe78 
0979 
9989 
0981 
0982 
2983 
5984 
0985 


ae 
> 


"2 


Ree: 


¥C 


xt 
ny 


FUNS 

~ 

D+ 

A+0 
L264s00 
C+33 


L 96490 
3) 
Beet} ed 
Ol} 


WEMX 


WEMs A+] 
306081290000 
Yetiss 
LOCRN 
0964 
FRMEX 
FRME 
SCN] 
Ovrvlisi 
FRMEX 
FRME 

SC? 
PRONT 
FUNMD 9646 
F + 

Pae2 
FRMEX 
FRME 


-FUNS 


0 


L964900 
A 


Wet 


GB+92 


Feplls6 


Fug ll e% 
E-91198 
WEMX 
WEMeF= 
30111120000 
Hee ttes 
Ta 

L 964900 
9 

DCLMD $64 
E- 
J+e11 90 
Ko 1199 
FRMEX 


TF IN PROCEDURE MODE» CHECK 


SEMICOLGN COUNT 


THE PRESENT SYMBOL IS A PARAMETRIC ARRAY 


te Fon oe 


THE PRESENT SYMBOL IS THE NAME OF THE 
PROCEDURE BEING DECLARED 


IF IT OCCURRED BEFORE» 
OUPLICATE PROCEDURE NAME 


SFT 


SEMTCOLON COUNT TO 1. 

SEND NAME TO EXECUTOR. 

THE PRESENT SYMBOL 1S THE NAME OF 

A PARAMETRIC FUNCTION OR PROCEDURE 

PASS CHARACTERS UNTIL MATCHING RIGHT 
rN 


ls 
PARENTHESIS 1S FOUND AND GO TO SCN7 


TF CALLING A FUNCTION»sCHECK $ COUNT 
IF THIS COUNT [TS l1sWE DONT KNOW YET 
WHETHER OR NOT THE PRESENT SYMBOL IS 
A PARAMETRIC ARRAYs BUT ITF. THE COUNT 
1S 2 OR 3 WE KNOW TT IS A 
PARAMETRIC ARRAY OX PROCEDURE 


IF IT ISNTs 

TMEROPFER FUNCTION ARGUMENT 

IF IN TYPE DECLARATIONs 

SKIP TO NEXT MATCHING RIGHT PARENTHESIS 


IF SYMBOL WAS CLASSIFIED BEFORE AND 


OOO 


- 


IDO Oo a “ Ce 3 6 


fod pd eh peed 


ODOOS 
FOORUDDOHODAVBXONDOAGODNO 


fee 


oonpaneousc 


Peal pe Lk pet Be bed tee 
“90 D2 :9 Ov 


Moo ODDO OO T 5 ue 


ws 
ee 


Om?OoOODO 0O OO 2 


rey 


OaoOoadooganono an 


#Q 


ae | 


FRME 
L064900 
0 


RISP ellis 


M+tePied4 
dteill5 


SCNlislle? 


Nrar+>-et4teaF 
ne ee ee a A | 


M+912992 


LEVEL #02 © 
ee 


eo vppeh RY 
pO Gn ss 


SCNS5 

‘6 

Q 
X7FRO#} 
%+2 97) 

0 
G+s9999 
1 

TEMP 


INSX#DIMS 


INS 
TEMP 
R=] 
CWNDOX 
SCN5 
ARAMD 9&4 
1964990 
+ 
Cellel 
1~ 
O*1195 
FRMEX 
FRME 
CAARD 
STNS5 

0 

N+—9° 
WwFEMX 


es 


Wohig ia 


31517000000 


‘a 

FRMMD +64 
2 
M+96? 929 
L.OCN 36490 
TOPUS 904 
TRI GX 
TRIG? 


ALEPH s5295 


CYLAS 
SCNS 
M~962929 
FRMEX 
FRME 


IS NOT A LABEL» SEND [PT TO THe EXECUT OR » 


THEN LOOK SEE WHAT KIND IT ys 
IF VARIABLE INSERT DOT | 


TF LIBRARY ROUTINE® INSERT FUNC CALL OP 


TF ARRAYs SEE BELOW 
IF LABEL» EXIT ° 


Te RESEPYED MORO. EXIT 
ia mS. PEs = rAgT 


IF EXT PROCEDURE s INSERT FUNC CALL OP 
» ES-----FHE-NAME-OF- THE- PRESENT . 
PROCEDURE SEEING DECLARED 


IF AN ARRAYs MOVE THE MULTIPLIERS TO 
THE DIMENSION STACK 


(ITF NOT PARAMETRICsSKIP OVER THE 
TOTAL=LENGTH ENTRY) — 

(IF ITS: ONLY 1*DIMENSIONAL » WE 
LEAVE THE DIMENSION STACK ALONE} 


SEND INDEX OP TO EXECUTOR . 


IF WE HAVE A NEW SYMBOL® AND WE ARENT. 
PROCESSING AN ARRAY DECLARATION, 
ITS A VARTABLE 


IN ARRAY DECLARATIONs MARK THE PRESENT 
SYMBOL AS AN ARRAY AND SEND IT AND AN 
ARRAY@DECLARATION OPERATOR TO EXECUTOR 


Te IT TS A LABEL» THE MONE MUST 
RE A PECLARATION OF SOME KIND 


ELSEs MISPLACED LABEL 


1-0 DECLARATION 
STORE TST LOCATION IN TOPUS 


SEND A LABEL OPTRATOR TO-THE EXECUTOR 


“IN FORMAT DECLARATION SEND THE 


LABEL ITSELF TO EXECUTOR INSTEAD) 


O11 


ae) 


SOoaacooet eo OOo po OOD 


OD i2 


DPpOde Bad DID 


pi EAD 


SECO oo G70: O 


mongvu 


L942 


1043 
1044 
1945 


1046 


4347 
1048 


108s - 


1050 
105] 
1052 
1552 
1054 
L085 


1656 


1057 
1058 
1059 
1060 


1061 


1962 
1063 


19064 


1065 
1066 
1067 
1068 
1060 


1O70 . 


1O7} 
1072 
1073 
1074 


1075 


1076 
1077 
1078 
1979 
1080 
1081 
1O82 


1983 
1084 
1085 


1085 
1086 
Cay 


1088 


1089 


ro 
wh 


RAK 


Rg. 


RC 


*B 


=A 


SWw5 


R4 


BUN 


SCN? 


 SYMAL 


STOGN4+1900 
SCN11 

At 

Be] 952225 
RR2 


pe 
TEMPS iD 


K 
8 


3 
TEMP3 017 


TEMP 3 52729277 


SoC 

i 
TEMP 2 954 
SSC 
SYMaL 

0 


4] 


PRS 


TEMP 2 
TEMP 1 
A+ 2999 
} 

TEMP 
TEMP 96436 
0 

D+ 
TEMP 2 
TEMP 2. 
INSX 
INS] 
SCN] 
TEMP? 
TEMP 

c- 
CLASX 
CLASS 
SCN] 

k3 


WINDR 
WIND1sSCN8& 
SWhsDCe] 
Ri3 


De229] 


$5C e008] 


AP 


IN THE STATEMENT STOP +65 + 1S REDUNDANT 


A} AS As A® 


IF WE ARE WORKING ON A PREF IXs 


CALCULATE Ska FIELD “FOR COMPARISON 


PUT PREFIX CODE INTO PR&=STACK . 
IN ALPHABETICAL ORDERING © 


FINISH PROCESSING IDENTIFIER OR 


t tHe wars 


NUMERIC LABEL 


NA 
FINISH UP CONSTANT 
SET UP IMPLIED MULTIPLICATION 


NN 


ee ee 


fed pd fk Pe pet pet 
eo00a00 


Oag moos 


oo ~] oO 
ooooa 


NP RDN AG 
ao a Onn as moa QO o © 


Oca © 


™ OD 


YP Oo DoD 


mao ao 


ao 


CAD SYMSL 


SLS 1 | 
STA SYMBL _ BUILD CONSTANT 
LOR S$? 
STR SYMAL O01 
DUN SCN] 
RG STP WINDX : ." NS Ne NP 
BUN WINDD ER 2 OF | 
BUN  SCRI —  FINTSH WORKING ON CONSTANT - 
NTAG CNST poonosonaLA : . 
R7P IFL SW6sO09] tA | IMPLIED MULTIPLICATION 
R7 STP OPRTXseR13 - (A eA SA 9A -A FA PA 
“BUN OPRT SEND OPERATOR TO EXECUTORsGO TO R13 
R83 STP OPRTXsSCN1 MANY EeGe 1) (- 
BUN OPRT SEND _EFTHANO oP To BAECUTOR 
RO LDR §2 . (P gf SP sP-#P PD 
BFR SCN2002010 : 
CLL Sw? THE RIGHTHAND SYMROL MUST BE A 
STP WEMX REDUNDANT PLUS STGN : 
SUN WEMySCN7 
CNST 315iea2c0C06C0 MISPLACED ARITHMETIC OPERATION 
R10 CAD REAR r{ 
STP SCAN 
BUN EXCTR . ) TO EXECUTOR 
BUN R1OP IMPLIED MULTIPLICATION 
Rii STP ALPLX A- : 
BUN ALPLU LEETHAND SYMBOL MUST BF A SIMPLE VARIABLE 


RF A D+e 1160 
SFA C+olisl 


BFA R2Pslle? OR A RESERVED WORD 
Gi. TAG 
STP WEMX 


RUN WEMe C+ 
CNST 36122240006 IMPROPER VARTARLE SYMBOL 


en TEL — Delle! 
#C §T9 FRMEX 
BUN ERME | 
R?TIP CAD PLUS INSERT PLUS SIGN SO EXECUTOR 
- RUN SCNS ALWAYS THINKS MINUS TS UNARY OPERATOR 
R12 STP OPRTXsRELTS }- 


mis CPRT } TG EXECUTOR: INSERT + SIGN 


OVE TT 0 24. ° 21388 R13 Chit. -ikex% BLANK A. 
Of1 78 0. 1132 STB ° SW1962. | 
O1L 79 0 ee & ook FL SW1962901 PREPARE. TO RUILD AN TDENTIFIER 
G11 8° 0 V1i34 | ~ ULLOB SBL 
O32 62 5 1136 CLL YMBL 
011 82.0 1336 -. RIF SYMBL 69 
811 86 O 1138 R15 STP PASSX | ‘SKIP OVER PLANKS 
Of 87 0 1139 es PUN PASS 
Ong eB 0 1140 BUN  5SCN3 
612 91 0 | 1441 REZ STP  PASSX. As 
Orn 92 0 1142 BUN PASS . GET NEXT NONBLANK CHARACTER 
911.93 0 1143 BEA 2170302902 
011 94 0 1244 STP CLASX . IF Not A COLON CLASSIFY 
O11 96 0 12145 BUN CLASS » LEFT IDENTIFIER 
941 96.0.......21246.. R177. LDR $2... QMOVE WINDOW TO THE RIGHT. 
O11 97 0° 1147 STR 51 7 AND CONTINUE SCANNING 
911 98 6 1148 LDR K2 
97199 0) 1149 STR KY 
917 09 0 1780 RUN SCN3 
S12 01 0 12151 Ri7R LOR NTAG 
&i2 02 0 1352 STR K MARK NUMBER AS LABEL 
012 03 0 1152 R17Q STP PASSX , a GET NEXT NONBLANK CHARACTER 
O12 04 0 1254 RUN PASS 
012 05 O 1155 BFA  C+302903 | 
012 06 0 2156 TF TAGSO081 COLON IS DETECTED 
012 07.6 1157 STP ALPLX 
G12 08 0 Ti58 BUN ALPLU LOOK UP IDENTIFIER 
C1209. 0. TE59 SFP. --TRIGX ~~ hae . 7 
912 10 0 1160 BUN TRIG PROCESS LABEL 
O72 11 0. 1161 BUN SCNS RETURN 
012 12 0 162 XC ~°~=6oLDR K 
012 13 0 | 1163 DBB R17001? THREE DOTS DETECTED 
O12 24 O 1364 CLL S2 TREAT AS COLON IF IDENTIFIER IS 
012 15 0 2165 TFL 82900990 OVER FIVE CHARACTERS, SET. RIGHT 
O72 16 0 1166 CLL K?2 CHARACTER AS SPECIAL CODE 90 FOR PREFIXES 
012 37 0 1167 — OFL R3962329 SET PREFIX SWITCH 
012 18 °0 1168 BUN R1 PROCESS AS IDENTIFIER. 
OF 210 1169 R18 STP WINDX N= 
O12 2? 0 1170 BUN WINDU PROCESS CONSTANT 
O19 929 Li7l BUN Py y1e AND INSERT + SIGN 
. 7) 
C12 26 0 1272 R19 STP WINDX Ae 
012 27 QO. 1173 RUN WINDLsR2 ' PROCESS CONSTANT 
O12 2a 0 


1174 © RI9P CAD DOT IF NOT A LARBELs INSERT IMPLIED MULT 


Qo nrooaoroooc0o Fe GO Oo a0 eo 00 . 


2Woo ogo oC OO0O80D 


9PO Oo 0090 


i 


2 


R20 STP 


XA ST9 


“Cc CAA 


#9 STP 


R21 CAD 


R22 STP 


eC BFA 


SCNS5 


INPTX 

INPT 

CHAR 
R17R+02903 
C+991 908 
WINDX 

WINDY 

RYTP 

SW2 

Sw 

E+ 

WEMX 

WEMeA~ 
31526280000 
fy : 
Ds22958 
SW3s0001 
$2 . 
XONE+1 

K2 

R5 


RPAR 
SCAN 
EXCcTR 
DOT 


SCAN 


EXCTR 
Reé 


PASSX 
PASS 
B+902914 
An 

SwW3 

G+$1 

D 
Me22958 
SW3290OeC] 
WNDSX 
WENDS 
SYMBL 

cp 

SW? 9060] 
PASSX 
PASS 
D990? 926 
N+e02934 
Fee G2e 70 
F-91008 


Ne 


TF THE NEXT CHARACTER 
A STATEMENT LARELe 
OTHERWISE TF [TS NOT NUMBERIC 

WE FINTSH MAKING UP THE CONSTANT 


iS A DOTsWE HAVE 


. ANR_CONTINUE. | 


OTHERWISE WE HAVE A FLOATING CONSTANT | 


ERROR CONDITIGNS ARE NeNeN OR N#ENGN 


MISPLACED DECIMAL POINT - 


RECORD DECIMAL POINT AND CONTINUE 
SCANNING AND BUILDING CONSTANT 


dN 
) TO EXECUTOR 


e TO EXFCUTOR 


Noe 
CHECK FOR SECOND ASTERISK 
IF NOT * MEANS EXPONENTIATE 
START SCALE FACTOR 


IF MANTISSA HAO NO DECIMAL POINT 
MANUFACTURE ONE 


PROCESS MANTISSA 


EXAMINE NEXT NONBLANK CHARACTER 


WE MUST HAVE #*N €=-N° OR  #e4N 


gong ooo°o 


—-o0 


“@oDOROB0000 


Oooac00000 


Oo 


OdDoogo0g0ecCSaoOg00 0000 
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12728 
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1239 
1240 


1241 


1242 
1243, 


L244 


2245. 


1246 


1247 

12438 
1249 | 
3256 
2251 
252 


1253 


1253 
1254 
beoe 
1256 
t2o7 
1258 
1259 


1260. 


1761 
1262 
1763 
1264 
1265 
1756 
1267 


R24 


— R24P 


BUN 


R25. 


RUN - 
STA: 


stp 


BUN 
CNST 
TFL 
STP 


BFL 
BUN. 


CLL 
STB. 
CAD 
CLL 


eS a 
~ CEL 


STA 


STP 


BUN 


R27 


TRIG? 


TRIG 


STP 


BUN 
LDB 


CAD = 


ae 
rEL 
BUN 


DEFN 


BFL 
CLL 
DLE 
CAD = 
BFA 


BFA 


STP 
BUN 
CNST 
BPA 
LOR 
STe 
LOR 
as 
STP. 


WEMX 


WEMsA@ 


30129300000 


SWae619) 


PASSX 


“PASS 
Cs 


S2 


K290206 


R24P 


SWe 
SW406) 


a9 
wa 


—SYMBL 


pb 
SwW3 


“SYMAL 901 


SCN] 


-OPRTX*SCN1LO 


OPRT 


—OPRTX a t+2 


OPRT 

FUNS 
0912910 

C 

OMCRN 900461 
SChLe 2 


TAGSO09} 


SCN1 


SCN] 


ALEPHs 62796 
TAG 

L26490 

0 | 

TRIG1 26490 
COMNT 922967 
WEMX 
WEM eNO 
206170900009 
T+ 

DUMPR 

V2 

MEMRY +1 


-EXPLN 


CONVX 


IMPROPER SCALE FACTOR 


RECORD SIGN 


R22 TS LOCATED RY-OPRT 


BLANK N- 


PREPARE TO BUILD A CONSTANT 


te we oy TY oy ae 
SANSERT THE EMPTY OPERATOR _— 


is os 


INCREASE THE SEMICOLON COUNT 


$) 
TRIG? FNTRANCE «= SUPPRESS MONITORING 


DEFINE A LABEL 


IT HAD BETTER BE UNDEFINED 
OR THE WORD COMMENT . 


DUPLICATE LABEL 


PUT OUT CODE FOR DUMP ROUTINE 
IF THIS LABEL WAS SPECIFEED ON TRACE CARD 


MmOoOago 


OCOOOGSODVGDDDGODCVOOVOOOAODAOO ODOC ONOBTO9050 


Ooo oo @ 


oOo 3 


1268 
1269 
1270 
1271 
1272 


1273. 


1274 


19°76 
aor 


L276 


Po a oa 
1278 © 


1279 


1780 
128] 
1282 


Leos ° 
1284 
128% 


1286 
1287 
1788 
1289 
1226 
1291 
1292 
1293 
1294 
1295 
1296 
V2o7 


1298 


1299 
13B00 
1301 
1302 


a ae, ao eee 


1304 


1305 
1306 


1307 


1308 


Aw 


1309 
1310 
2317 
1312 
1312 
1314 


1343 
1316 
1317 


eT 


~ TRIG1 


a8 
wa 


NU © 


eR 
ZUTA 


SER 
ALEPH F 


PASS 


~ PASSX B 


WIND] 


WINDY s 


_ ERME 


CONV3- 
TRIG. 
FXUPX 
FXUP 
Ls6490 


REMX 


REMILseE= 


Aue ee_Arr 
i Syed 
he 


ASMBL sNOPZ 
NU262? 929 
LOCNP 
0001907sLOCN 
CHI 
TRI GX 
¥896400 
L TBRX 
LIBRE 
96449 
MNTR904 
i a 
HH 290 
191210 


CONV X 


CONV 
papery 


TRT GX 
#4392 
He? 96 
% 


CPL 


WMGsTRM 


a, 


Mij962529 
TRTGX 


964200 


Ate lis? 


EYX ALL 


THE NEW DEFINITION IS. LOCN 


TF THIS TS & 5UB ROUTINE LABEL _ 
INSERT A NOP INSTRUCT ION 


IF THIS IS A SEGMENT NUMBER’ 
RESTORE LOCN | 


IF MONITOR STATEMENT HASNT APPEARED sEXIT 


BRING IN THE LABEL PROCESSOR ROUTINE 


If THIS IS A NUMERIC LABEL 

ATTACH A MINUS SIGN TO IT | 

AS A SIGNAL TO THE LABEL PROCESSOR 
ae j 

IF LABEL 1S REQUESTED FOR MONITORING» 

PREPARE TO MONITOR ALL ASSIGNMENT 

STATEMENTS IN ITS SCOPE | 


COMPILE CIRCL-M (THIS WILL COME UP 
WHEN THE SCOPE OF THE LABEL IS ENDED! 


GET NEXT NONBLANK CHARACTER FROM CARD 


ok, 


FINISH PROCESSING. CONSTANT « 
If TAG 


TS ONs IT TS A NUMERTC LABEL 


OTHERWISE MAKE A CONSTANT OUT OF IT 


SEND CODED SYMROL TO EXECUTOR 


FORWARD REFERENCES TO THIS LAREL 


OQoor:o0ovo09a00G000 


SCQeOe2FcoD a9 O@osso COCO ONAN SOM COO OO 


oo 


op 


1318 
1319 
1320 


1321 


13-22: 
1323 


1R2h 
1395 

1326. 
L327. 


1222 
Y379 
1330 
1331 
1332 


13°33. 


1334 


1335 
1336 
1337 


1338 © 


1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 


1854 
1354, 


1356 
1357 
1358 
1359 


1359 


136° 
1361 
1262 
1363 


a lo OO td 


le aoe ore od 
m7 om fm oO 


op oun & usr 


FG 


*F 


WNDSX 
RE 


Sw4 | 


n° 


eB 


SVAR 
¥C 


#D 


WINDX 


INSRT | 


as 


LezZ2.. 
C+91ll96 


BOF?” 


SCAN 
EXCTR 
aes 


bb 


Ra. 


rn ame ws 
 NTAG 


WINDX 


6 


. RRO 
_SwW3 


E+ 
SYMBL . 
F+927490 


922801 


1 

= 

LO 

D 
Os08 
ee 
SYMBL 
x 


SWe 

Do 
SYMBL 
B+988s0 
WEMX 
WEM 9+ 


8 


FP 


A 
wWNODSX=1 
t 


WNOSX<1 
RROe22? 01 
YNASX 
FRMEX 


LLO 
STN 
Sik 
u904 


9999 34490 


23436373300 


RESERVED WORD» 
N OPERAND 


EUNCTION. CODE IS 6 IN SCANNER»... 


8 IN EXECUTOR ~ 


PUT CONSTANT INTO FINAL FORM 


IF DECIMAL POINT WAS SENSED» 
TRUNCATE CONSTANT TO EIGHT SIGNIFICANT 
DIGITS ae 


ATTACH EXPONENT 


NORMALIZE 
If SCALE FACTOR TO RE ADDED» 


MAKE SURE IT IS IN THE PROPER RANGE 


CONSTANT OUT OF RANGE 


TF UNDERFLOW OR TOO 816 USF ZERO 


SET TYPE OF FIXED POINT CONSTANT 


PUT A NEW SYMBOL INTO MEMORY 


014 
O14 


Ors 


O14 
O14 


O44 
O14 


O14 


915 
O18 


COVOVD9 VOD OCDOVODOOBVOGD.DAO COCO DO 


POOODSGFOLODSODDOSOCODQ0000R230 


1367 


1268 


1369 — 
1379 


1371 
1372 


4373 
E874 
1375) 
1376. 
- 3277 
(1378 


1379 


1380 
1381 


1382 


1383 


1384 
3385 
1386 
1387 


1388 . 


1389 


1399 


1391 


1392 


1392 


1394 


139 
1396 
LOT 
L398 


4399 
1400 


140] 
140? 
1453 
1404 
1495 


4406 


1407 
1498 
14.09 
1410 


1411 


141? 
1413S 
1414 


1415. 


14.16 
1417 
1418 
1419 
1426 


INSRX | 


ae) 


aia 


SS¢ 
by 


L364 | 
2H 
Leas 


ae 
+943 
+9427 900 — 


a 


0 

te 
C+90040 
INS 
INS1. 
0967 


ao 


%¥4+3943019 


RROsC 
$sc 
SSc 


MAMAX 604 


FULL 
L640 
5 ase 
& 


- RegP)l eo] 


fC ms 
ee 


i“ 
NV 


8 


D2D3923 — 


SYMBL 
16 

NN 
Lio 
PARSW 
FNSW 


INSRT 
RR2 
Oe2] 
TAG 


ALPX1 


Yt 
De 
KC 


SRCHX 


IF YT DOESNT FIT INTO THE SCRAMBLE 
TABLE s PUT IT INTO ASSQCTIATLVE. MEMORY. 


MOVE NAME INTO SSC AREA 


CHECK IF MEMORY EXCEEDED - 


SOSCHARACTE? TDENTIFYER WORRIES 


LOOKUS IDENTIFIER OR NUMERTC LABEL 
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LOR 
RFR 
IPL 
STP 
BUN 
STP 
BUN 
STP 
PUN 
STP 
BUN 
STP 
RUN 


CFA 


LOR 
BCU 
LDR 
STR 
STA 
STP 
RUN 
CAD 
RUN 
STP 
RUN 
STP 
BUN 
a 5 & 
TFL 
BUN 


BSA 


AtseO1sel 


B+e0le2 
ALPHA sO01¢62 
Pi] 

FSUBX 
FSUB2 

C+ 

SEMIX 
SEMIC 
REMXsEXEC 


Sl41eOe* 
FXUPX 


FXUP 


CMPLX 
WMGECRU 
P1990] 
DELTAsOls2 
ALPHA sO} 6] 
TOP 

EXis 

MODE 

0 


B+te2?79? | 


ALPHAs00e1 
CMPLX 
RIGHT 
aSURX 
ASVR 
FSURX 
FSUBI 
RUNX 
RUN 
EXCTR 
SCAN 


CMPLX 
WMG sPLUS 
SMeL 
EXTT 
QSURX 
QSUB 
ESURX 
FSUBI] 
DELTA 
DELTA S006 3 
NORM 


C+? 


THE VelElsE2sE3)9.. CASEe 
ASSEMALE STPsSUN 
RUN BACK THE V= 


THE V=(E1lsf29 CASE 
SINISH INCREMENTATION OF V 


FIX UP BUN INSTRUCTION 


COMPILE AN UNTIL OPERATOR 
ANS THE LE@ OR GEQ RELATION 


THE V=lEle CASEe 


ASSEMBLE V=Els STP SUI 


PUN RACK V=V 


REMEMBER ITF E2 BEGINS WITR 


THE CHARACTER MINUS 


COMPILE +¢ AND THEN CONTINUE SCANNING 


THE V=Fls CASEs 


ASSEMALE V=Fls ST2s BUN 


SCAN Vs AGAIN 


SEMICCLON GENERATOR» 


ODPWIGOVOOEAODAOGSTATOONOSTOOSCGAIOBVOV MPO DCAGOHAGOGOSD PLCN9OFCeEGOOMVIGCFaG0 09090 


.1967 


1968 


1969 
7c 


197} 
1972 
1973 
1974 
1975 


1976 


177 
197K 
119 
1989 


1981 


1982 
1983 


1984 | 
1985. 


1986 
1987 
1983 
1939 


1990 


199] 
1992 
1993 
1694 


1995 
1996 


1¢97 
1998 
1999 
2000 
201 
2002 
2003 
2O04 
2095 
2006 
2097 
2008 
2009 
2010 
zO1t 


OMe: 


2013 
2914 
2019 
2016 
2017 
2519 
2019 
2020 
2021 


Zee 


DELS 


OMCRN | 
OMCRN 
NORM + i 
FUNMD 6 64 
A+ 

PRCMD 964 
Ag 7 
DELTA 
#4) 


DELO 
Ubee 
"OE 


DEL 
DEL4& 


' CMPLX 


RIGHT: 
DELO 
YSUPX 
YSUBI 

0 
Oel2510 
Ha 97 
NORM 


+ 


TAGSO0S) © 


NORM 
PRSBXsCRC- 
PRSR 

FLUNS 

R= 

CMPLX 
RIGHT 

om 

Q+ 


DEL&Ss 190 


WEMX 
WOM SDELS 


34661000000 


WEMX 

WEMs A+ 
39147000000 
SEMYX 
SEMIC 

REMX sOPRND 
REMsF~ 
REMXeATMs 
REM»gF= 

Str 

DEX 

age 

os a 
DELTA 

TAG 

NORM 

DE CNX 

DECK 

MEL S 


Re Le 


CHECKS FIRST FOR LABEL MODE. 
EXIT IF EXPECTING A SEMICOLON 


CHECK FOR FUNCTION OR PROCEDURE CALL 


OTHERWISE BRANCH ACCORDING TO THE 
SETTING OF DELTA oe 


DELTA UNSET 


-. FOR. STATEMENT sAFTER (E1962sE3) Fuhace 


THIS LOCATION IS WASTED 
FOR STATEMENT» AFTER & , 
AFTER OTHERWISE sSEGME NT SUBROUTINES ETCe 
DECLARATION (EeGes INTEGERs FORMAT) . 


PROCESS PARAMETER 
INCREASE SEMICOLON COUNT 
IF TF WAS 2sSET TO EXPECT LABELS 
A PARAMETER CALL OP 


COMPILE 


FINISH FOR LIST 


(SEE Q+ BELOW) 


EXTRA OPERAND 


TMEROPER SURSCRIPT 
SEMICOLON TS jf 


ARE THERE ANY OPERANDS ON THE STACK 

IF SO THEY HAD SETTER BE ACCUM SYMBOLS 
ARE THERE ANY DIMENSIONS LEFT 

WE HOPE NOT 


TF FVERYTHING IS COPACETICs 
CLEAR ALL SWITCHES IN SIGHT» 
IN PREPARATION SOR A NEW STATEMENT 


BDOQoeooovoeoeo 


RMOOOdOQ0 CO 


Oo 


ns (OO 


Oo 0 OOed 


Oooo ogac 


qos 


UPSLN 


EE 


TA 


XB 


so 


INPUT 


— QUTPT 


RA 
#A 


PUT CM 


LAREL 


LABCM 
* A 


NLRG 


ST 


DEFN 


STP 


BUN 
FFL 


BLN 
STP 
FAD 
STP 
BUN 
47 
BUN 
CLL 
ake 
BUN 
BUN 
STP 
RUN 
BUN 


CAD 


RUN 


CAD 
STA 
SP 
RUN 
TFL 
AUR 


§Tp 
RUN 
RUA 


STP 
Ri yN 
IFL 
STP 
my Fay 
CAD 
RUN 


DEEN 
SIP 
RUN 


CLL 
BUN 


% 
QSUBX 


OSUB 


PSTs00s01 
ASMBX 


ASMBL sQUNFR 


CMPLX 
CRA2D] sWMG 
REMXsEXEC 
REMsC+ 
DECNX 

DEC 

PHI 

REMX FV 
REMsa= 
DELS 

FXKUOX 

£XUP 

-= 


CRS 
A+ 


CRK 

STSV 

ASMBX 

ASMBL sRUNFR 
TAGSOQ 2] 
NLRB 


NUL SX 


NULSB 


FR 


ASM3X 

ASMOL gRUINZ 
JPSLN 962929 
CMPLX 
WMaSsSCRT 

CRA 

EXIT 


os 
PRSBXeCRA 
PRA 


DEX 
NORM 


BLE STPeBUN IN FOR LOOP 


ASSEMBLE RUN AROUND THE LOOP 


COMPILE INPUT OR OUTPUT s IF THIS 
FOR APPEARED THERE. ; 
FTX UP ALL THE BUNS TO THYS FOR LOOP 


NROP THE FOR MODE 


RELEASE THE SYMBOLS FROM THE 


FOR*VARTIABLE STACK 
THEN DO LIKE A REGULAR SEMICOLON 


ASSEMBLE BUN FORWARD 


COMMA BETWEEN TWO INPUT OR 
OUTPUT DECLARATIONS 


ASSEMBLE BUN 0000 


AS. THE FIRST INSTRUCTION OF A&A DECLARATION 


COMPILE CIRCLE Is CIRCLE A 


COMPILE CIRCLE A 
(INPUT OR OUTPUT) 


MARK 8 PEGISTER UNKNOWN 


O22 
O72 
O27? 
022 
O07 


922 36 


22 
022 
022 
O22 
(027 

Q22 
022 


tbad 


‘022 
OF? 
02? 
O79 


Ln 


022 


022 
O72 
022 
022 

022 


O22 


022 
O22 
222 
222 
O22 
022 
022 


O22 


022 
922 
N99 


022 
az? 


O22 
822 
O22 
022 
022 
022 


O72 — 


Oro 


522 
022 
O27? 
O22 
O72 
02? 


Oooe20 


OOOvdo0o 0029 


Ood.ooD 


a3 


ae yan Ge er OD ee 9 


IO oOooor oo 


Ow oD & 


2063 


2064 


2065. 


2086 
20867 


2068 
“2069 


SOT9 


20 
2071 
2072 


aa tg oe 


207k 
2075 
2076 


—2OTT 


2OTE 
2079 
2080 


2082 
20684 
2034 
2085 
2086 
2087 
2088 
298° 
2090 
2091 
2032 
2093 


2094 


20695 


2086 | 


2097 
2098 


29099 


2199 
2101 
2102 
2403 
2104 
2105 
2106 
2108 
2198 
2109 
22110 
2411 
Z¥12 
2113 
2114 


FRMEM 


eA 
#8 


eR uch ena, 


A 


HR 


FR 


#L 


STA 
CLL 
CLL 
Sif 
RUN 
RE A 
OFA 
BFA 
BFA 
PFA - 
BFA 
SRT 


CAD, 


SLT 
STA 
RUN 
SRT 
CAD 
SUT 
STA 
RUN 
CAD 
SLA 
STA 
PUD 

DEL 
CAD 
LDR 
BZR 
BFR 
STA 
qe 
RUN 
LDB 
TRB 
RUN 
igae 


ASMAX 
ASMA 
DELTA 
CMPLX 
Lert 


aOCe5 


Ls MUNMFR 


a 


TAGSOOel 


FXCTR 
SCAN 
LFFT 90296 
PESCR 
INSXsDIMS 
INS? 
DIMS 
DESCR 

8 

0923 
INSTR 


DESCK 


PASSX | 
PASS 
L=s027924 
N+e5198 
N+902903 
C+907923 
So907914 
R+9079G4 


2 


DESCR 
2 


INSTR 955 
Re . 
PESCR 

] 

DESCR 
PASS 
DESCR 

2 

tNSTP 283 
ne 
L+962929 
PESCR 
INSTR 

+ 
F+s83 90 
INSTR 90? 
WRITX 
WRIT? 
DIMS 
NORMs 939999 
A@ 
L~s6&2929 


2 


FORMAT, ASSEMALE 


PROCESS FORMAT ST 


CIHTS TSA tLTTee 


REGIN NEST 


LEFT PARENTHESIS 
NUMERIC 

HoT 

COMMA 

STAR 

RIGHT PARENTHESIS 


INSERT NUMBER (33 


RBUILM NUMBER 


INSERT NUMBER IN 


INSERT NUMBER IN 


(OR DO NOTHING = 


RIGHT PARENTHESTS 


RUN AROUND. 


RINGes 


SCANNER ) 


FIELDJALPHAIS2°TELD}) 


B83~FIELD 


FITHER 02 OR 83 FIELD 


APTER #4}. 


DVIPSODCO0D0G OO 0R 0000000 


eOvDo2000 


2 


Oo 7G Oo DAAOa4 


oo Oc 


Q 


3 


Iooooo80 


Oa © 


5 eee 
Zrié 


2117 
2118 
2119 


2720 — 


21271 


7429 
tn & oe de 


2123 


2124. 
7B 
2126 


2127 
2128 
2129. 
2130 
2131 
2132 
2133 
2134 
2335. 
2136 © 


2137 


2138 
2139 
2140 


92141 


2142 


2143 
2144 
22&5 
2146 


21477 


2148. 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2258 
2159 
2160 
2161 
2162 


2163 


2164 
2165 
2166 
2167 


ae 


aE 


SGMT 


RPEMX sPIMsS 
REMg 42 
7043009* 
4 finer 
me ’ 
INSTR 

Rowe | 
ZETAS62 235 


TOPUS 


oo INSTR. 
~TRPTX: 


INPT 

TOPUS 20422 
is 
INSTR 

CHAR 
CHe02 914 
INPTs 9992 
INSTR 912920 
WRITX 

WRIT2 
INSTRs12930 
ZETA 952935 
Ra " 


2 


INSTR s83 
Rm 


PREV 


BUF+98 

#435 

WRITX 
WRITS 
BUF s 646] 
BUF 

BCUL? 

RUF 

4 

LOCK 
INSX»=UNS 
INS 
TAG90O092 
DELTA 0494 
LOCN 7 
RUE 

LOCN 

LOCNP 
EXCTR 

SCAN 
7UTA262 939 
TRTIGX 

TRIG 
2UTA952939 


LOCATION OF MATCHING LEFT PARENTHESIS 


TRANSFER FIVE CHARACTERS © 
AT A TIMEs UP TO AND ae @ 
INCLUDING THE NEXT ASTERISKe 


SEGMENT BEGINNINGS 
IF BUFFER NOT EMPTYs DUMP IT 


INCREASE SEGMENT NUMER 


STOR= SEG NOeLOCN IN FUN@=STACK 


FIX UP FORWARD REFERFNCES TO THIS 
SEGMENT NUMBER 


Oa 


 CaMaqgegoncGo00o00000 


oogoogoa Dd 


G 


> 


ooo ovo o ope o0 gf 


2168 


“2169 


2470 
2. Fi 


217T2 


ie co tae oe! 


e277 2 


2176 
(23-75 


2176 
Patd 
2178 
2379 
2180 
218) 


2182 


2183 
2184 


2385 


2186 
2187 
2188 
219 


219% 
2191 
2192 


" eS 


2194 
2198 
2196 
2197 


2198 


2199 
7206 
2201 
2202 
2202 
2204 
2205 
2206 

2207 
2208 
22.9 
eae 
2711 
2212 
2273 
2214 
2215 


END 


or 


FINSH 


INDEX 


A 
¥3 


SCAN 


CWEND 967... 


END 
RPAR 
END 
SMCLAN 
ANALZ 
KOMA® 57. 
Au 

TAG 
ANAL Z 


CMPLX 
RIGHT 


& T 
 &0007F 0 


agg 


NUL SB 
ARFMD 
ANALY 


INSXsAVATL 


INS 
A+s04 
B+o04 
14 


INSKsARAS 


INS 
OPRND 
996499 
9) 

e737 
*9OB 
CPRAH 
964 
C¥PLX 
W¥GeCRR 
CMPLX 
LEFT 


COMPTLE CIRCLE 
WILL FINE SH 


VeWHICH 


THE SEGMENT .s 


THE WORD ENDes 


SCAN UNTIL WE REACH 


Qrixise. 


Hats 


_ENDSRIGHT PARFN®SEMICOLONSOR COMMA. 


REGHT PARENTHESTS SHOULD MAT cH 


THE LEFT PAREN TO WHICH WE 
THE OPERATOR STACK 


INITIALTZED 


~ 
— 


ea 


IN 


IN STATEMENT s 
REPLACE BY CIRCLE B OP. 
= APPEARS 


TN 


INDEX OP ITS INS 
OF Al(l)ea IT 


FIRST 


THE INCREMENT 


ARAAEL 


PUT CIRCLE“R OPERATOR ONTO THE STACK» 


ALSO A LEFT PARENTHESIS 


) 


FIND 


NORMAL 


BEG 


Yol 


OCATION OF 


ARRAY DECLARATIONS 
GO INTO ARRAY-FILL MODE. 


ERTED BETWEEN A AND 


INS 


PROCESSING 
SOMS AVALLABLE LOCATION 
TM ASSOC MEMORY, THIS WILL BE CALLED 
WORD FOR THIS ARRAYe 
TN ARAS= AND CPERAND<=STACKS WE PUT A 

REFERENCE TC THIS ENCREMENT WORDs WHICH 
TS INITTALIZED TO 
Vis 
R=O FLOATING 


¥ 5 R GOOO AAAA 
CALL BY NAME V=2 MONTTOR 


R=1l FIXED 


OTHER 


INFORMATION 


SUBSCRIPTS 


2216 CAD 
2217 Ste 
~ 2218 @UN 
A219 CAD 
—2220- TFL 
2224 RUN 
(2222 NDXCM STP 
creme BEB ie cose ALUN 
se a EP Dh ieee ee oe ge vn SER 
ae es ee RUN 
2226 STP 
2227 RUN 
222° CAD 
2229 RE A 
2230 oe BUN 
2231 BA. DLB 
2232 | LboR = 
2233 STR 
2234 LDB 
eeo5 HLA = 
2236 CAD = 
(2237 EXT 
2238 ML 
—6- 2239 : STR = 
224° BR LAs 
2241 LAR = 
2242 RFR 
2243 INSXX STP) 
2244 RUN 
2745 RUN 
2246 SPERO STP 
2247 BUN 
2248 TFL 
2249 STP 
27259 BUN 
2251 STP 
te poe BUN 
22593 CNST 
2254 SPERX BUN 
2255 DECN LDB 
2256 PLB = 
2757 NEON DORR 
2258 STP 
2259 RUN 
2260 G5 Ea Pe 
726) CFA 
2262 LDS 
2263 BCU = 
27 64 MLTS LDS 


V6 
CMPLX 
VRal 


EN LLP bk 


PLUS 


PHIs00sa1 
EXIT 


PRSRXsCRY 


.PRSBo 
oT.) 


SPERO 
CMPLX 
WMG sPLUS 
PAR 
At+alls2 
B+ 
PAR?6490 
A 

TEMP } 
ARAS 
036430 

6 

EX42 
TEMP) 
O64 
ARAS 

6 
NORM s 2230 
INSX sMULT 
INS 

NORM 


CMELX 
WMG sDOT 


CMPLX 90498 


REMXeDIMS 
QEMeVFBL I 
WEMX 

WEMsVRALQ 


303147000000 


% 


MODE, 
Oe2291 

*9 100 
REMK ea MCDE 
REM g¥+? 
O552eCe% 
NDOXMN 664 
DECNX 

0 . 
ARAS 


. FURTHERMORE» INSERT 
INTO THE 


THE CHARACTERS GQ + 


INPUT STRING 


FIMALLYs S&T UP To IGNORE THE LEFT 
PARENTHESIS WE LL GET NEXT FROM SCANNER. 


COMMA IN SUSSCRIPT POSITIONe 


FINISH EVALUATING see Ch Mare oe isin 
IT 1S -FEXED POINTs- . 


MULTIPLY IT BY THE PROPER DIMENSION 


INSERT PLUS OPERATOR 


TE THE. DEM HST ON WAS A CONSTANTs 

THE JNCREMENT WORM CONTAINS SOME INCREMNT 
WE HAVE SUPPRESSED FROM THE TARGET CODE?. 
AND WE MULTIPLY IT BY THE DIMENSION | 
AND REPLACE.1T IN THE INCREMENT WORD, 


TF AN EMPTY SUBSCRIPT APPEARED» 
PUT THIS DIMENSTON ON MULT STACK 


MULTIPLY PREVIOUS RESULT BY | — 
THE NEXT DIMENSTON 


Te THERE TS NO NFXT NIMENSTONS 


USE TsAND SAY IMPROPER SURSCRIPT 


DECREASE PARENTHESIS COUNT ON THIS MODE 
AND TF IT ITS NOW Z2FRO»s PULL OFF THE 
TO? OF THE “ONDE STACK 


IF WE FINISHED THE SUBSCRIPTS OF AN ARRAY 
WE GO THROUGH MORE MANIPULATION’ 
OTHERWISE WE EXITs 


024 


C24 


ru mn 


wo 
O24 


O74 - 


024 


02 & 
O24 


O2OoO O97 B00 


OOo O1eoe 


aoe 
i 


IO DOO Qo 


2 O26 


mooorprnoovr7ro oo C00 9070 0000 90 O 970085 


2308 
2309 
2310 
2311 
2332 
2313 
2314 
2315 
2216 
2217 
2318 
2319 
2320 


“ee a5 


oe. 
518 


Sire 
LB | 
STa 
CLA 


ADD 


BSA 
LOR 
STR- 


_ BY. 


STP 
RUN 
STP 
BUN 
STP 
SUN 
STP 
BUN 
Fara 
SRT 


DLA = 096490 


Pg (4. 
O+004 
0 
R+904 


9 
Atel 
Va 
DAR 


Re. 


CMPLX 
LEFT 
SPERX 
SPERO 
CMPLX 
RIGHT . 
REMXsARAS 
REMs ¥+2 
67427 2Oe% 
io 

% 

RCUL? 


964 
492269 
PAR 

INSX MULT 
INS s 
USURX pCRNE 
USUR ' 
REMX»VLLT 
REMs T+ 
REMXeMULS 
REM gt 4 
6938 9O09* 
KAPPAs0001 
DPRSAX sa CRC 
PRSB 
REMX g MUL S 
REMpeJ+ 
KAPPA2?00e] 
REMXsOP 
REM «NORM 
12 
E+oA4500 
CMPLX 

VRBL 

CMPLX 


WMGSOOT 


en 
INS¥ oe MULS 
TNS 

K- 

REMX 9OP 
REM sA~ 


NOW WE FINISH PROCESSING ARRAY S&SCRIPTS 


THE FINAL DIMENSION TO MULTIPLY BY | 


1S FITHER THE CONSTANT 1 


OR & PARAMETER TO THE PROCEDURE _ 
MULTIPLY BY ITs 


PULL OFF TOP OF ARRAY STACK 


INCR WORE /64 1S CHANGED FROM THE 
INCREMENT TO THE BASE ADDRESS PLUS THF 


~TNCREMENT (MOD TOS00T 


IF AN EMPTY SUBSCRIPT HAS APPEARED» 


PUT LAST DIMENSTON ONTO MULT~STACK 

WITH THE OTHERS 

SUT OUT THE RECALCULATED BASE ADDRESS: 
AS & SPARAMFTER 

FT MULS TO MULT STACK IN REVERSE ORDER 


FORGET TOP ENTRY OF MULSs IT IS ZERO 


2 


WE ARE FINISHEDse PULL SPURIOUS + OPERATOR 
(WE GET AN EXTRA ONE FOR EACH 
EMPTY SUBSCRIPT} 


MULTIPLY TOGETHER ALL DIMENSIONS 
BETWEEN EMPTY SURSCRIPT POSITIONS 


REMOVE EXTRA + SIGN AND STORE 
COMPUTED MULTIPLIER 


POOoDTOO CODOCATODDO NO DGC OOM KGODDAG00000 


oOoooo0gsf 


Ovoegonronroeg oD 


2321 
2322 


Zoo 


2224 
2325 


2326 
2327 
LAZE 
2329 
233° 


2551 


seaoe 


2333 
2334 
2430 
2250 


»@aot 


2338 
2339 


2240 


234) - 


2342 
2343 
2344 
2345 


2346 


2347 
2348 
2349 


“2350 
2351 


2352 
2352 
2354 
Polke a, 


2356 


Cant 
2358 
2359 


(2360 


2361 
2362 
2363 
2364 


2365. 


2266 
23267 
2268 
2369 
2370 
2371 


NN 
*G 


ARMS 


% A 


¥R 


COLON 


99 
MODE 
Q 


EUNMD 664 
NORM 


— FUNS 


Q. 


~USUSX SERN 


YJSUBEF 
NORM 


INSX*sOPRND 
INS 

INSXs ARMS 
INS 


~—S$ScelSel 


KAPPA s009)] 
NORM 

NO XMD 964 
R+ 

0 


0 


FUNMD 964 
Rap 

FUNS 

fe) 

R+93 
REMX sOP 
REM s+ 
WwEM X 

WEM NORM 


20]49475000 


ARAS 


9927871 


SYMAL +} 
TNSXX 


KAPPA 
OPRND 
094490 

) 

A+954 

A+ . 
INSKSEUNS 


IF MO FMPTY SURSCRIPTS OCCURRED 
RUT IT IS A NAME CALL ANYWAYs 
WE CUT IT IN AS A NAME PARAMETER 6 


EMPTY SURSCRIPT POSITION OPERATOR. 
IF IT IS SENSED WHILE COLLECTING 
NEW PROCEOURE PARAMETERS» 


VARTABLE 
SUBSCRIPT MULTIPLIER 


CREATE A PSFUDO SIMPLE 
FOR THIS 


PUT IT INTO THE OPERAND STACK 


AND CF MULTIPLIERS 


FOR 


NTO: THe Tat 
THIS ARRAY 


OTHERWISE CHECK THAT THIS EMPTY POSTTION 
OCCURS IN AN ARRAY PARAMETER 
WHILE CALLING A PROCEDURE 


IMPROPFR FMPTY SUBSCRIPT POSITION 


RECORD IT IN ARAS 
AND PUT MARKER ON MULT STACKe 


BEGINNING OF FUNCTION CALL 


PUT MAME OF FUNCTION WERE CALLING 
ONTO FUN=STACK 


DoeEag0DCHDCGDOOORCD 


D2Oooa 


oao 


VCOOOeooovocceo000na 


QvovS 9720 


Mm O oO 


x A 


FUNCM 


DUMP 


MONT 


QUN 
CAD 
BUN 
FAZ& 


STP 
RUN 
BUN 


CAD 
SLA 


SF 


BUN 
OFL 
DL 
ARR 
STO 
BUN 
STB 
TFL 
DFL 
TFL 


TFL 


St 
BUN 
CFA 
BCU 
DFL 
Se 
ChL 
BUN. 
AFA 
RUN 


DLB 


LOR - 


* BFR 


“MFL = 


SURR 


DFL - 


RUN 


LOB 


| 


RUN 


NFL = 


LOR 
STP 
BUN 
RUN 


eae 
DEL 
FL 
5ST? 
RUN 


INS 
CRO 


EXIT 
99030 


PRSQX CRS 


PRSE 
NORM 


LEVEL. 

& 
INSXsDUMBS 
INS 
S+96144 
LOCN +5450 
MONT » 200 
ASMBX 
ADMRL sBUNZ 
LOCNs 54 
LOCN 94493 
THY 962971 
TAGsOO0e] © 
CHL s0651 
EXCTR 
SCAN 
SMCLN 

B45 

THY 9625929 
S+#6)1 

TAG 

ANAL 2 
#+290180 
MONT +1 
Ls6499 

% 

F+7 92193 
0922937 
A+t90299 
0912960 
DUMSS 
Oe4591 
MONT +1 
09127980 
ARTHG 
LIBRX 
LIBRF 
MONT +1 


TAG+008) 
NUe S52 9?9 
NELTAs00094 
ASMAX 


ASMBL sf®UNFR 


PUT MONTTOR 


COMPILE A CIRELE=0 


COMMA IN PROCEDURE» FUNCTION. CALL 


. STORE THE PARAMETER 


PUT RECORD ON DUMB STACK sFOR OVERLAY 


MAKE SURE LOCN IS AT LEAST 300 


MONITOR STATEMENT. | 
PREPARE FOR NUMERIC LABELS 
GET NEXT ITEM FROM SCANNER» 


IF IT TS A SEMICOLON WE EXIT 


~ o% we ee Pt 


MARK OPERAND AS MONT TOREM sUNCLASSIFIED 


OR TF PROCESSING DUMDs 
AS & VARTABLE TO RE DUMPED 


SURROUTINE 


COMPILE BUN FORWARD 


SURROUTINE INTO PROGRAM 


Ooo oo 
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o 


oQaao: 


i 


Ooover0e0o0ng Don DTfDVO COBO Go00000 
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2431 TFL =- 397163 - MARK TYDE GE THES PROCEHURE UNSPEFCIFTIEn 
2482 ARM BUN NORM 

2483 FUNC STP XSUBX WORD FUNCTION SENSEDs 

2434 | BUN X5UR DO INITIAL STEPS 
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LRTF 

BUF +293261 
CNTRITsO0Q91 
CNTRI 

BUF 
DESER 
#4792 

+42 


23 MEANS THIS IS ONLY AN INDEX PSEUDO=OP | 


CHECK IF THIS ADDRESS IS A. 


NAME PARAMETER. WHYTCY MUST BE. PIEAED 


UP AT RUNNING) TIME 


ARRAY = IF @ NE@ 1 OR 3 


RETURN THE INCREMENT. WORD TO 


AVAILABLE STORAGFEs WE ARE DONE WITH. 1 


WRITE SUBROUTINE = PUTS TNSTRUCTION 
INTO OUTPUT BUFFER. 

WRIT? ENTRY = PUT INSTRUCTION OUT FOR 
LOCATION LOCN AND INCREMENT LOCN 

WRIT2Z FNTRY = LOCATION ITS IN RA(0O4) 

AND TSMSTRUCTION [TS TN REGISTER R 


NOES THIS LOCATION 


(IF SO WE WILh ERAS 


EQUAL THF PREVICUS GONE 
EF THE PREVIOUS ONE} 


OR JS IT? ONE HIGHER 

IF NOTsWVE #ILL PUT OUT A NEW RECORD TRANS 

oe 22@FUELD CONTAINS THE NUMBER OF - 
FIUENTTAL WORDS TO LOAD 


031 
031 
O31 
O31 
931 
o31 


eae 


032 
032 
032 


ened 


C32 


032 
O32 
O32 
032 
03? 
032 
O32? 
032 
032 
0.32 
C32 
032 
032 
032 


Oo000 090 [COA 000 © 


OLVODDDDDBCOCOVTOOEB DSO ODO 


Oooooacdco0oono 0000 o 
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2916 
2917 
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29520 
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292? 
2923 


2924 

2925 
2926 
2927 | 


2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 


2927 
2938 
2939 


2949 


294) 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 


295) 
2952 
Zoos 
2954 
2955 
2956 
2957 
2956 
2959 
2960 
2961 
2962 
2963 
2964 


WRITH 


WRITS 
¥C 


WRIT4 


STR. 


“LDR 
STR. 


LOR 
CFR 
BC 
LBC 
CLA 


SUE). 


18a 
BOF 
STA 
MOW 
TEL 
CLL 


CLL 
EFL 


CLL 


LDB 


RTF 


WRITX 


GENXK 


GENXV 
ors 


A 


GENRX B 


GENXKY S$ 


GENR 


BUN 


“ WRTSW CWR 4 EXPLN®1? 


Heys4)] 
WRTF 
PREV s04 
CNTRI 
CNTRE 
WRITX. 


NN 


RUF +2 
HUFS99 
*=19] 
S47 
BUFE99 
RUF SOT 91 
RUE s00¢9)} 
CNTRI 
CNTRFE 


CNTRFE »00996 


BUF +4} 

C~ 
BUF+1998 
% 


Vivl2 

Vi 
INSAsSOPRND 
INS 

OPRND 

9 

A+91190 
GENRX 

SER 


Bd 


RiGNZ - 
ASMPEX 
ALMBY 
GENRX 


OPRTN 
GEN292 
GEN393 
GFWRE 94 
GBRWRE 95 
GEWRE 6 7 
GATNK 
ORTNI 
ORTNX 
OBTN2 
OPRTN 
GFN391 
GRELNo®8 
A+26490 


@ = RESULT 
PUT RESULT OF 


IF ©¢S(2) PUSLISH THIS ON 407 


1S THE BUFFER FULL NOW 


Qe noteexii 


IF SOs CALCULATE CHEC K SUM 


WRITE GNE BLOCK 


INITIALIZE FOR NEXT BLOCK 


MARK V1 AS IN A@REGISTER 


SCME GENERATED QUANTITY 
iN OPERAND STACK AND eo in 

SER THE POSITION WHERE STORED 

IF JT IS AN ACCUMULATOR - SYMBOL « 


{(HINTseeSER IS USED TG CONTROL PLACEMENT 
INTO TEMP STORAS=} 


ASSEMBLE FINAL INSTRUCTION AND EXITs 


GENERATORSeBRANCH ACCORDING TO KIND OF QP 
UNARY OP | : 


“NULLARY OF 


FORWARD REFERENCE 
BACKWARD REFERENCE @ 
INCREMENTED FORWARD REFERENCE 
AINARY OP oe a 
SET Vi OPERAND 


GET V2-OGPERAND 


SPECIAL BINARY OP 
RELATIONAL OP 


032 26 9 2965 GENAG STP. ARTHX PLUS TIMES OR DIVIDEs FIC. 

932 27 0 2966 BUN ARTHG a <4 

032 28 0 2967 ~  —9*> CAD = ACCUM 

032 29 0 (2968 © RUN GENXX 2a 3 | 

032-30 0 2969 =A LOB MODE GIVEN A PLUS OPERATION WHICH TAKES 

932 31 0 — 2970 CAD - 9 | — PLACE ON PARENTHESIS LEVEL ONE OF AN 
032 32 0 ~ 2971 CFA . TEST267 ARRAY SUBSCRIPT AND WHERE ONE OF THE | 
032 23 9 2972 BCU = =GENAG TWO OPERANDS IS A FEXED POINT CONSTANT 
O32 34 0 2973. CAD - V1 | | 
0327 35.0. 2974... BEA Bee220?1 0. TF-ALLTHIS 15 TRUE WE DONT COMPILE. 
032 36 0 2975 ~ “LDR oVv2°- EXTRA INSTRUCTIONSs WE ADD IT TO THE 
032-37 0 2976 RFR 42922821 RASE APDRESS OF THE ARRAY. | 

O32 38 0 2977 BUN GENAG 

832 39 0 2978 STR Vi 

032 40 C 2979 STA V2 

032 41 0. 7980 SLT =: 10 

O32 42 6 FOS) RB. DLS . V¥1964s0 . -_ 

032 43 0 2982 - LOR:-@ 2. UNLESS THE CONSTANT [S BIGGER THAN +1 
037 44 9 2983 . SRT 0 IN WHICH CASE WE COULD GET INTO TROUBLE © 
O32 45 0 2984 CFR XONE41 LOADING 3 WITH A NEGATIVE QUANTITY 
032 46 0 2985 BCH = GENAG | , | 

O32 4&7 0 2986 LDB  ARAS IF THE. ARRAY IS A CALL-BY-NAME 

032 48 0 2987 .  BLB = 096499 WITHIN A PROCEDURE WE CANT DC THIS 

032 469 0 2982  GENDX SRT 0 INCREMENTATION EITHER 

032 50 0 2989 CLA 

032 $1 0 2990 ADD = 0 

O32 §2 0 2991 BSA GENAGe1 | 7 

032 53 0 2992 » SLE. “70 ADO THIS TO THE INCREMENT WORD (MOD10000) 
032 54 0 2993 SLA & , | | | 
032 55 © 2994 ADA = 0 

032 56 0 2995 STA = 0964 

O32 57 0 2996 GENX2 CAD V2 | 

032 58 0 2997 BUN  GENXX PUT OPERAND FOR UNARY OP INTO V1_ 

032 59 0 2998 GENZ STP OBTNX | 

032 60 0 29°09 BUN OBTNI - OPRTN/64 IS THE NAME OF THE GENERATOR 
032 61 9. 3000 GEN3 DLR. OPRTNs6490 FOR THIS GPFRATOR 

932 67 0 3001 BUN = 0 

032 63 0 3002 TEST F2H4 LesNOXCMsd 


C32 &7 0 3003 GREL2 STP WEMX 

032 6B 0 -BO04 BUN WEM 9342 

032 69 0 3005 : CNST 30167206000 TMPROPER ASSIGNMENT OPERATION 

932 70 0 3006 CLL OPRTN | CHANGE OPERATION TO EQL 

032 7] 90 3007 GRELN cSU Vi RELATIONS EQLeGTRs ETCe 

032 720 3008 : STA Vi. 

932 73 °C 3009 ‘ CAD OPRTN 

032 74 0 3010 STA OPRTM , 

022 75 6 301] NFL YFTHs62910 CHANGE TO FIXED POINT SUBTRACT OPERATION 
032 7& 0 301? CLL OPRTN 
O32 77 0- 3013 STB BOF sé1 

022 78 0 3014 | STP ARTHX 

032 79 0 3015 RUN ARTHG 

032 ao oO 3016 TFL YETHsS62910 

032 831 ¢ 3017 RSA 4290 


3018 TFL OPRTM 96491 


032 82 0. | | 

032 83 0 3019 RFA H+21120 IF RESULT IS NOT IN REGISTER AsGET IT. 
C32 a4 0 3026 © 7 LSA OO | | ae ‘ | 
032 85 95 302} | STA VI 

932 86 0 3022 : STP CG ADX | | : 

032 a7 0 3023. —° BUN CADI _. | ASSEMBLE BOF ¥+2 -IF NECESSARY. 

032 88 0 3024 xD “STP ASMS3X | : : : 

032 89 © 2025 BOF BUN ASMRLSROF2 “ 

232 90 0 “2026 #0 LDB OP CHECK HOW WE ARE USING THIS RELATION 
042. .972..0. 3027 LDR =O... | ee ae Bor Shes te ciagtegks = 7 
032 92-0 3028° BFR. ~~ A#967900 TS "ET TH A ROOLEAN EXPRESSTON 

032 93 9 3029 TFL = - OPRTMs 6452 ss a. 

032 94 0 3030 CFR  OPIF 967 IS JT IN AN IF CLAUSE 

032 95 0 3031 RCE C+ | | 

077 96 9 30232 TFL OPRTMs6492 IS TT IN AN UNTIL CLAUSE - 

032 97 9. 3033 CFR  CRUSS7 : , | 

O32 98 0 3034 BCE (C+ 3 . 

932 99 0° 32038 STP WEMX IF NOT IT IS AN IMPROPER 

033 00 9 3036 BUN  WEMsCMPLX — > - RELATIONAL OPERATION » 

033% 07 0 3037 CNST 30157200060 

033 02 2. 3038 FA STP -INTRX 

033 03 0 2039 BUN B+ 

033,04 0- 3940 BUN GENXX | | ee eer sa a 
033 05 0 3041 *f. CAD AVAIL REMOVE TF GR UNTIL FROM OP STACK ~ 
033 06 9 3042 STS AVATL 904 ° | 2 
333 07 9 3043 STA OO 

033 08 0 3044 i STR OP sha. 

633 09 6 3045 STP ENTRX 

C33 10 0 3046 BUN § B+ | ma | | 
033 21 9. 3047. .GREL1 CLL PSI TFs UNTIL FINISHEDese MAKE A COMPOUND 
033 12 0 3048 - TFL © PHEsC%90i STATEMENT.» . 
933 13 0 2049 RUN  CMPLX 

633 14 S 3055 88 DLB GPRTMs6490 

633. 15.9" 3052 — CAD = GTAB3 

033 16 C 3052 RUN  INTRP 

033 19 9. 3053. GEXPN CAD Vi POWER GENERATORe V2*V1 

O33 2¢ 0 3054 CFA Vi0s67 IF Vi IS 2? 

33 21 0 3055 BCE Q+ 

033 22.0. S056" 3 LDR v2 OR 260 WITH V2 FLOATING» 

033 23 9 2057 | CFA Vile67. . | 

ges 3058 BCU +7 WE WILL MAKE THIS INTO A MULTIPLY 
033 25 0° 2059: . RFR Q4+s27190 | OTHERWISE IF Vi IS NEGATED 

Q33.26 9 3060 RSA = A+90 | oar, 

933 27 C 3061 © STP ACCX EMPTY THE A-REGISTER 

333 28 6 3062 © BUN ACC3 S 

933 290 6 3083 — STP CADX AND CAO V1» SRT 10. 

033 30 6 306% BUN CAN] 

O32 31 90 3065 *R CAM SRT10 | 

033.32 9 4066 © BUN C+. FLSes TF TT IS IN THF A REGISTERs SRT 106 
033 33 6 3067 . FA BFA B=91190 | | | 
033 34 9 3068 © CAD LDRYVI1 IN OTHER CASESs LDR V1 

$33 35 0 2069 #C ot ASMEX 

033 36 0 BO7C RUN ASHBY. THEN CAD V2. 


033 37 0 3071 — STP -CADX a: 
093 38 0 ©3072 | BUN CAD2 - SEPARATE FOUR CASES 
033 39 0 3073 RD ~. CUB | FIX TO FIX #® O 
C33 40 0. 2074 “CAD. V1 FIX TO FLT = ] 
O23 °-41, 0. 3075 BFA | #4292102 FLT. TO FIX = 2 
O33 42 0 BO7E | TBR e191 iy es ae 
033 43 0 3077 CAD Vv? | 
$23 4&4 0 3078 BEA eb2 yg 21a) 
923 45 0 3079 185 9 ¥ +102 
033 46 0 S080 -> ~ SER fee Oe - o> -  -GENERAT c. 51D. RUN- TO APPROPRIATE SURBRUTINE 
033 47 0 4087 LDR = NUTeL 7 SET UP TO PRINT THE NAME mite ° - 
233 48 9 3082 STP LINK 
033 49 0. 3083 IRB LINK@19EX°PF | 
633 50 0 3084 © LOB to COMPUTE TYPE OF RESULT 
033 54 6 3085 | ~ CAD ~ EXPA 
S23 82 0. 3086 FXFA ~ RUN GENXX e0130 
033 $3 2 ‘30387 #Q CAA V2 | 
933 54 5 308R . | STA. VW? THE SQUARE CASE 
033 55 6 3089 |.» ..-° STA Vi | 
333 56 0 3090 | BFA Tell 92 : 
033 57 0 3091 &TP ACCX FREE A REGISTER 
033 5A 0 A092 BUN ACC3 oo 
033 .59..0 39093. . er oh: 2 Se aed | TE V2 WAS IN THE A REGISTER» IT WILL 
333 69 0 3094 BFA T+o11 90 HAVE RFEN STORED OUT 
0323 61.0 3095 CSA ABV] - OTHERWISE WE WANT TO CADV] AND PREVENT 
333 62 0 3096 STP pane NOUBLE=INDEXING IF V1 IS AN ARRAY 
933 63 0 3097 BUN ASMAY 
O33 64 © 2095 STR Vigt) 
633 65 0 3099 £7 © CAD DcT MULTIPLY V2eV2 
933 66 0 3165 STA OPRTN ze : 
032 67 6 2,04 RUN SENAG 
033 BR O 3192  NUTRL CNST SFEX¥FXS 
033 69 6 3303 | | CNST SFX*FLS 
O34 79 ¢. 3304 - NST SFLAEXS 
033 71 0 3105 _ CNST SFL¥FLS 
03232 74 0 3106 GABSF STP TSTOX ARSOLUTES VALUES» 
233 75 ~=0 3407 | BUN TSTOP LOOK SEE IF ITS ABS 
023 76 0 3168 LOR #43 
933 77 9 3109 LDR vi 
033 78 0 3210 — BFR X42 91190 | V1 IN MEMORY,» ABS CRA VE 
C32 79 9 3411 DBR LSAQsLSAO=CAAVL Vi IN MEMORY s-ABS CSA VI 
032 80 0 3112 RCU = ¥§ #2 V1 IN ACCUMs ARS LSA 0 
033 81 6 Saat * DBR 09°999 Vi IN ACCUMs =ABS LSA l 
O38 s2 a RYU STP ASMEX 
C33 93 0 3115 RUM ASMA? 
C33 84 ° 3116 BUN GENXK 
033 89 9 3117 GHYPH LD®B OPRACD MINUS OPERATOR 
033 90 0 3118 FEX42 CNST 10013110000 STMPLY REVERSE SIGN DIGIT OF 
C33 91 6 3219 STA S00 NEXT ITEM IN OPERAND STACK 
033 97? 0 
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DOD eospoaeoaoooo 
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STP 
BUN 
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BUN 
CNST 


LDR 
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CAD 
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oF 
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STP 
AUN 
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STP 
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—$TP 


BUN 
STP 
RUN 
PE A 
CAD 
RUN 
DLP 
CAD = 
SLA 
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CAD | 
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es 
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ore 
BUN 
SRT 


Vt 
Via 


G? 
GENG#22902 
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ACC4 

V1 
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FtsZ 9d 


WwrEMX 
WE rug Fm 


20189610000 
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Ebel 
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CADL 

ASMBX 
ASMAL 4 T+ 
OREL? 

WEMX 
WEMeAm 
30159610000 
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ACOX 

ACCS 

FIXEX 

FIXER 

Atells2 

46034027172 

GFN 
1964300 . 

] 

9 

RCSL? 914 

40371720000 

GEN4 


TSTOX 
TSTOP 
CADX 
CADI 
10 


“TE Va MOT 


ASSEMBLE 


GENERATE 


IN ACREGISTER®» 
STORE A=-REGISTER IF NECESSARY © 


CHECK THAT V1 TS S0O0CLEAN. 


CAD Stes SUB Vle- 


IF Vi 


TS IN THE ACCUMULATOR» 
SUBf1=_s LSA Q 


TMPROPER RCOLEAN OPERAND 


TF AND UNTIL 


CHECK Vi BOOLEAN - 


BRING IT INTO A REGISTER 


RFA FORWARD s01s0 
OF BEA FORWAS 


RO eOlsi 
MAKE COMPOUNG STATEMENT - 


CTF} 


IMPROPER BOOLEAN OP ERAND 


PCS GENERATOR 


FREE A REGISTER 
RRING V1 FIXED POINT INTO A 
UNLESS [TTS A CONSTANT 
THEN GENERATES SLA 09009 
STA *42911 
CAD 41 
8c e290 
CLA 


OR rE. TT WAS A CONSTANT GENERATE 
MERELY THE LAST THREE OF THESE 


SIGN(V1} 


BRING V1 


(UNTIL } 


ne re 


Nia) 


- 


OOD OODO © 
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We 


wy) A be 
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Ooo VOODOO ary 
oe 
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ti G599A5600 


2492100 
$49599 35600 
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INTRX 

INTRP 


GENAYV 


OPRTN +6400 
RUNTsO4q 
RINT 

GENXY 


REM Xs OPRND 
REMgk +2 
GENRX 

V1 

SER 


STSVs64s0 
5 


JEL TAs 2790 
OP 

0 
CRS9564 

A+ 

MODE 

C 

FORM ¢ 6&4 
E44 

OMEGA s00e]1 


4 
rr 


Vv ? 
7+$11640 
ét+e] 
Z+¢]19? 
7+¢91199 
S+o]) 93 
Vi 
SteP]1 2 
A+el 12 
ZADX 
CANT 

V2 
V292] 
Vis2l 
C+ 
Yao?130 


meV 


FIXCNs A490 


SRT 0 
CAD =leM= OR =1= 
SL? 0 


FTX UP FORWARD REFERENCE 


RUN TO BACKWA2D REFERENCE 


OP TAIN Vie 


BRANCH TO GCRUCINPLUTJOR GCRK( OUTPUT) 


= OPERATOR 
OR DIP HE MEAN FQL 


CHECK FOR MULTIPLE AS 
OR A FOR STATEMENT» WHERE WE 
CANT DO STR INSTEAD OF STA 


LEFTHAND OPERAND CANNOT RE 
ACCUMULATOR SYMBOL 

OR NEGATED 

OR A CONSTANT 

OR A LAREL 

O° A TEMP STORAGE 


(CLL IN MULTIPLE ASSIGNMENT) 
1S RHS A CONSTANTs 
IF NOT» GET RHS INTO ACCUMULATOR 


~ 


DO THE TYPES AGREE 
TF NOTs LINK EITHER TO 
FIM OR FLOAT ROUTINE 


935 G4 9 3217 RUN n+ 
935 05 6 3218 sd NLS TARSC+38296490 
035 C4 9 3219 *X STP LINKX 
5385 67 0 3220 BUN LINK] 
®35 08 9 are! #C CAA G13 
O36 09 5% 3272? zB LOR = V2 SEMPLE STA Y2 
O35 210 0 2923 RFR W+elts8 eee FUNCTION DECLARATION OR PROCFERURE 
O36 11 0 S224 HK 57. INTRX NAME 
O3§ 12 0 32725 BUN INTRP 
235 13 0 3226 POR. Mt IF WE ARE IN SCOPE OF A LABEL REQUESTED 
C35 14 9 3277 3 RFR 4962 gO] FOR -MONTTGRINGs G8 THE VARPTABLE - te Os 
025 16 0 293A aM mie V2ehh oO ASSIGNED TS SO REQUESTEDs 
O35 14 9 3229 STp CONV X ASSSMRLE LINK TO MONTTOR SURROUTINE 
C35 17 6 3235 BUN CONV 
035 18 0 3231 RUN E+ 
935 19 0 3232 xW ALB ¥29649,00 
035 20 0 32a CAA - 0 ‘ 
C35 21 9 3234 RSA M=9? 
035 272 9 3235 HSA Mm 9G 
335 23 0 3236 Ee CLL OMEGA 
O25 24 5 3237 BUN GENXY 
038 25 0 2238 * A CFA V7964 IF WE ARE SETTING SOMETHING TO A 
925 76 9 2939 RCE S+ 7 NONZFRO CONSTANT 9 
935 27 9 32240 CFA £5984 
O35 7a 9 324] PCE S+ 
035 20 9 3242 a8) CFA V2921 MATCH THE TYPES 
135 30 4 3243 RCE v= 
035 31°49 3244 BEA V+e72190 
235 32 ¢ AP4S STP ELTOX 
C35 32 0 3246 BLN FLTCN 
035 34 ¢ 3247 RUN T+ 
026 35 0 3248 HY STP FIXCK 
935 36 © 3249 RUN EYXCN 
335 37 0 32760 27 STA V¥1eOO 
035 38 9 325} RUN A= 
936 39 9 32592 RS CAD COMP +7 SOMETHING = 0 
C35 49 9 325% LOB OMEGA 
035 41 0 32754 LOR V>? SEVERAL CASES TO CONSIDER 
035 42 9 3255 ae is Vile23 
$35 43 0 3756 Tet Vie21s3 
038 44 0 3257 nar Kang? CLAs CLL V2 TN FOR STATEMENT 
45 45 9 3758 SLA 6 
O38 46 0 3259 RFR Comet ie&® CLA TN PROCEDURE OR FUNCTION CASF 
735 7 3266 SLA 6 
C38 46 ¢ 3261 BUN K~ CLL V2 OTHERWISE 
2325 49 °0 3262 % 7 STR Vile?l 
626 69 0 3263 STP WOM 
035 81 0 APA4 RUN WoMetn 
035 42 0 2.2965 CNST 30167226000 IMPROPER ASSIGNMENT STATEMENT 
V35 57 6 3766 GCRC STP PMTRX 
035 68 9 3267 BUN PMTR ASSEMBLE THE PARAMETER=ORTATNING INSTRUC 


035 69 9 3268 LDB OPRND TION 

025 69 9 3269 CAD = 9 

938 61 0 3276 CFA DEXs67 POLS PFEGISTER RB CONTAIN THE FIRST 
935 62 0 227) RCE A+ PARAMZTER LOCATION 

935 63 © 3272 STA DEX 

035 64 0 A273 STA V2 TF NOTs ASSEMBLE A DLE V2944s6 

238 65 0 8274. STP ASMBY 

035 64 O 2775 BUN ASMBL sDLBV? 

O35 67 9 3276 =f Lda FUINS 

035 68 0 | 3277 CAD =~ 0 Sabet ave: 
G35 69 9 397% BSA %4993 FURN. TAG ON-ITF WE HAVE PASSED THE 
935 70 0 3979 BUN a, ND SEMICOLON 

O38 71 oO 32780 TEL TAGS009] 

035 72.0 328] SRA 8 

O35 73 0 3282 LSA 9 

025 74 0 3783 SUA GTARO WHAT PARAMETER MUMBER TS THIS 

O25: 7 e- O 2234 “STs STAAR 904 (FIRST OOCOUsTHFEN 99999 THEN S996R2sFTCS) 
835 76 5 3285 IFL — 0927¢1] 

O35 77 3 32786 CAP STAAB 

036 78 9 3287 AUN GENXY 

036 8] 0 328R Gc&n step TSTOX MOD GPERATION MON(V2eV1) 

035 8? 6 3289 | PUN TSTOP | a iad 

O38 R23 0 3290 csu V? TF -MOD CHANGE SIGN OF V2e 

O35 g4 0 3291 ACU #42 . 

935 95 9 229? STA V2 

035 85 9 3293 EXT Vi 

N25 97 9 A296 RASA F+e 21-9 CHECK TUAT VieV2 ROTH INTEGER 

036 88 O 3295 HE LDR Yi 

C35 a9 0 3296 | CFR V19966 | IF V1 IS THF CONSTANT 2 OR #2 WWE HAVE 
35 90 0 3297 BceE Z+ A SPECTAL CASE 

035 91 9 3298 SF STP AcCcX 

935 92 6 3790 BFR ACC141190 PUT VL IN MEMGRY 

G35 93 0 3490 C STP CADX 

0325 94 0 339) BUN CAD2 BRING V2 INTO ACCUMULATOR 

236 95 0 Ban? MLB V196490 

035 96 0 332923 cSA «+ 1 CHECK TE VI IS A CONSTANTsPOWER OF TEN 
036 97 G 3304 CLL. SYMBL 

N25 98 0 A305 mz A T+} 

135 99 0 2306 . SRT i 

036 09 0 3307 ADL SYM3L 

036 91 0 3208 RFR Hm 2a tle 

036 OF? O 3409 SaaS | 1 

036 63 0 3319 CFA XONF +1900 

934 04 0 33171 CAD 45927870000 

O36 O85 0 331? BCU GENG TE NOTS GENERATE SRTLOseDIV Vis SLT 30 
O36 OF 9 3312 CLL RRO 

036 97 0 3314 sTe FLTCX OTHERWISE GENTRATE EXTRACT 

036 08 © 331s RUN FLTC1 KITTH TET CONSTANT -1 OR -11 OR <11ls&TCe 
O26 09 9 3316 STA Vi1054 

036 17 6 3317 CAL ey 

936 12 39 3318 BUN GEN43s2800 

C326 12 0 3330 *E ST WEMX 

C36 332 0 3329 RUN WEM  sGONXY 
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A a 

Vi 

Ats27 92?) 
Wwrhx 


WEM es SENRX 
201636499000 


INS 
Peo 


GENRA 


EITHER IF FINISHINGe 
TF QTHERVISE APPEARENs DO NOTHING 
IF NO CTHERWISE APPEARED» 


PUT OUT..A NOP. INSTRUCTION |... 


FINTSH DECLARING SOME ARRAY 
¥1 IS FIRST DIMENSTONsV2 TS ARRAY 


RESERVE SPACE FOR THIS ARRAY 
PUT BEGINNING LOCATION IN ABASE 
COMPUTE BASE ADDRESS (MOD 10000) 


MOVE LIST 
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